From 5763fd438894c5a3e5159278b4a95e6a9c22ea9a Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 2 Aug 1995 19:02:17 +0000 Subject: [PATCH] Fixed typos which were causing INT:INTEGER and WITH-VALUES not to be open-coded. --- v8/src/sf/usiexp.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/sf/usiexp.scm b/v8/src/sf/usiexp.scm index 7ec9e327a..fe2a2e2de 100644 --- a/v8/src/sf/usiexp.scm +++ b/v8/src/sf/usiexp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: usiexp.scm,v 1.2 1995/04/29 13:18:05 adams Exp $ +$Id: usiexp.scm,v 1.3 1995/08/02 19:02:17 adams Exp $ Copyright (c) 1988-1995 Massachusetts Institute of Technology @@ -633,7 +633,7 @@ MIT in each case. |# (flo:flonum? . ,flo:flonum?-expansion) (fourth . ,fourth-expansion) (int:->flonum . ,int:->flonum-expansion) - (exact-integer? . ,exact-integer?-expansion) + (int:integer? . ,exact-integer?-expansion) (list . ,list-expansion) (make-string . ,make-string-expansion) ;;(modulo . ,modulo-expansion) @@ -651,7 +651,7 @@ MIT in each case. |# (values . ,values-expansion) (vector? . ,vector?-expansion) (weak-pair? . ,weak-pair?-expansion) - (call-with-values . ,call-with-values-expansion) + (with-values . ,call-with-values-expansion) (zero? . ,zero?-expansion) )) -- 2.25.1