diff options
| -rw-r--r-- | rust/spectrum.rs | 17 |
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)), }; }, |