aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorbnewbold <bnewbold@robocracy.org>2016-05-26 15:08:10 -0400
committerbnewbold <bnewbold@robocracy.org>2016-05-26 15:08:10 -0400
commit014b35ab2789a7322c67f12d40380c03acc4b6e3 (patch)
tree6e69f6c1f35ce7f8411bd8368ae19d9ba8f70561
parent2e5ae3f0c26dcf3a64a1ae39b00690a73c9084bd (diff)
downloadspectrum-014b35ab2789a7322c67f12d40380c03acc4b6e3.zip
spectrum-014b35ab2789a7322c67f12d40380c03acc4b6e3.tar.gz
rust: tiny fixes to compileHEADmaster
-rw-r--r--prelude.scm3
-rw-r--r--rust/spectrum.rs2
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" => {