diff options
| author | bnewbold <bnewbold@robocracy.org> | 2016-05-26 15:08:10 -0400 |
|---|---|---|
| committer | bnewbold <bnewbold@robocracy.org> | 2016-05-26 15:08:10 -0400 |
| commit | 014b35ab2789a7322c67f12d40380c03acc4b6e3 (patch) | |
| tree | 6e69f6c1f35ce7f8411bd8368ae19d9ba8f70561 | |
| parent | 2e5ae3f0c26dcf3a64a1ae39b00690a73c9084bd (diff) | |
| download | spectrum-014b35ab2789a7322c67f12d40380c03acc4b6e3.tar.gz spectrum-014b35ab2789a7322c67f12d40380c03acc4b6e3.zip | |
rust: tiny fixes to compile
| -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" => { |