aboutsummaryrefslogtreecommitdiffstats
path: root/rust
diff options
context:
space:
mode:
Diffstat (limited to 'rust')
-rw-r--r--rust/spectrum.rs17
1 files changed, 14 insertions, 3 deletions
diff --git a/rust/spectrum.rs b/rust/spectrum.rs
index 15c1f7b..097de53 100644
--- a/rust/spectrum.rs
+++ b/rust/spectrum.rs
@@ -13,9 +13,10 @@ use std::collections::HashMap;
//////////// Types and Constants
-// TODO: how to avoid the '34' here?
-const SCHEME_BUILTINS: [&'static str; 34] = [
- "lambda", "quote", "cond", "else", "display",
+// TODO: how to avoid the '35' here?
+const SCHEME_BUILTINS: [&'static str; 35] = [
+ "lambda", "quote", "cond", "else",
+ "display", "newline",
"define", "set!",
"cons", "car", "cdr",
"boolean?", "symbol?", "procedure?", "pair?", "number?", "string?", "null?", "atom?", "zero?",
@@ -544,6 +545,16 @@ fn apply_action(list: &Vec<SchemeExpr>,
_ => Err(format!("cdr takes only lists"))
}
},
+ "display" => {
+ for expr in args {
+ print!("{}", try!(scheme_repr(&expr)));
+ }
+ Ok(SchemeExpr::SchemeNull)
+ },
+ "newline" => {
+ println!("");
+ Ok(SchemeExpr::SchemeNull)
+ },
_ => Err(format!("unimplemented builtin: {}", builtin)),
};
},