diff options
| -rw-r--r-- | prelude.scm | 3 | ||||
| -rw-r--r-- | rust/spectrum.rs | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/prelude.scm b/prelude.scm index a7469b5..9721c33 100644 --- a/prelude.scm +++ b/prelude.scm @@ -27,5 +27,8 @@ (cond ((null? l) ()) (else (cons (f (car l)) (map f (cdr l))))))) +(define true #t) +(define false #f) + (define for-each map) ;(define compose (lambda (f g) (lambda args (f (apply g args))))) diff --git a/rust/spectrum.rs b/rust/spectrum.rs index 8325798..ecc00d2 100644 --- a/rust/spectrum.rs +++ b/rust/spectrum.rs @@ -562,7 +562,7 @@ fn apply_action(list: &Vec<SchemeExpr>, } }, _ => Err(format!("cdr only takes lists and quotes (got {})", - scheme_repr(&args[0]):unwrap())) + scheme_repr(&args[0]).unwrap())) } }, "cons" => { |