fixed the tests with new args
This commit is contained in:
+1
-3
@@ -36,7 +36,6 @@ condition is false."
|
||||
|
||||
(define-syntax (let bindings . body)
|
||||
(define (unzip lists)
|
||||
(break)
|
||||
(when lists
|
||||
(define (iter lists l1 l2)
|
||||
(define elem (first lists))
|
||||
@@ -45,7 +44,6 @@ condition is false."
|
||||
(pair (first elem) l1)
|
||||
(pair (first (rest elem)) l2))
|
||||
(list l1 l2))))
|
||||
|
||||
(iter lists () ()))
|
||||
|
||||
(define unzipped (unzip bindings))
|
||||
@@ -152,7 +150,7 @@ ithe sequence as arguemens."
|
||||
(concat-strings module-prefix
|
||||
(symbol->string orig-export-name)))))
|
||||
`(define ,export-name
|
||||
,(try (eval orig-export-name)
|
||||
,(mytry (eval orig-export-name)
|
||||
(error "The module does not contain" orig-export-name)))))
|
||||
exports))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user