summaryrefslogtreecommitdiffstats
path: root/fluidlet.scm
diff options
context:
space:
mode:
Diffstat (limited to 'fluidlet.scm')
-rw-r--r--fluidlet.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/fluidlet.scm b/fluidlet.scm
index 983bfdb..06d4630 100644
--- a/fluidlet.scm
+++ b/fluidlet.scm
@@ -1,5 +1,5 @@
; "fluidlet.scm", FLUID-LET for Scheme
-; Copyright (c) 1998, Aubrey Jaffer
+; Copyright (c) 1998 Aubrey Jaffer
;
;Permission to copy this software, to modify it, to redistribute it,
;to distribute modified versions, and to use it for any purpose is
@@ -8,7 +8,7 @@
;1. Any copy made of this software must include this copyright notice
;in full.
;
-;2. I have made no warrantee or representation that the operation of
+;2. I have made no warranty or representation that the operation of
;this software will be error-free, and I am under no obligation to
;provide any services, by way of maintenance, update, or otherwise.
;
@@ -18,14 +18,13 @@
;each case.
(require 'dynamic-wind)
-(require 'common-list-functions) ;MAKE-LIST
-
+;@
(defmacro fluid-let (clauses . body)
(let ((ids (map car clauses))
(new-tmps (map (lambda (x) (gentemp)) clauses))
(old-tmps (map (lambda (x) (gentemp)) clauses)))
`(let (,@(map list new-tmps (map cadr clauses))
- ,@(map list old-tmps (make-list (length clauses) #f)))
+ ,@(map list old-tmps (map (lambda (x) #f) clauses)))
(dynamic-wind
(lambda ()
,@(map (lambda (ot id) `(set! ,ot ,id))