fix

the-language · Dec 30, 2017 · b71299e · b71299e
1 parent 08b02f1
commit b71299e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/prelude.scm b/prelude.scm
@@ -75,7 +75,7 @@
                   (let ([p (cdr nfe)])
                     `(define (,(cdr p) x)
                        (if (,pred x)
-                           ,(car p)
+                           (,(car p) x)
                            (error ,(string-append (symbol->string (cdr p)) ": isn't a " (symbol->string name)) x)
                            )))) nf)))))
 (define-record-type error-object