adapt Abstraction variant of LTExpr to allow multiple parameters

This avoids unneccesary recursive chaining and also allows abstractions with zero parameters.

src/expr.rs

@@ -39,9 +39,8 @@ pub enum LTExpr {
         body: Vec<LTExpr>
     },
     Abstraction {
-        arg_id: String,
+        args: Vec<(String, Option<laddertypes::TypeTerm>)>,
-        arg_type: Option< laddertypes::TypeTerm >,
+        body: Box<LTExpr>
-        val_expr: Box<LTExpr>
     },
     Branch {
         condition: Box<LTExpr>,
@@ -68,11 +67,13 @@ impl LTExpr {
         }
     }
 
-    pub fn abstraction(arg_id: &str, arg_typ: &str, val_expr: LTExpr) -> LTExpr {
+    pub fn abstraction(args: Vec<(&str, &str)>, val_expr: LTExpr) -> LTExpr {
         LTExpr::Abstraction {
-            arg_id: String::from(arg_id),
+            args: args.into_iter().map(|(arg_name, arg_type)|
-            arg_type: None,//typectx.write().unwrap().parse(arg_typ).expect("parse typeterm"),
+                ( arg_name.into(), None )    
-            val_expr: Box::new(val_expr)
+                //typectx.write().unwrap().parse(t).expect("parse typeterm")
+            ).collect(),
+            body: Box::new(val_expr)
         }
     }
 

src/main.rs

@@ -80,13 +80,19 @@ fn main() {
                 }
             };
 
-            let hello = λ _ {
+            let hello = λ{
                 print-nullterm hello-string;
                 print-lenprefix pfxstr;
             };
-            let isquare = λx (i* x x);
 
-            hello 'X';
+            hello;
+
+            let isquare = λx (i* x x);
+            let magnitude2 = λx y {
+                i+ (isquare x) (isquare y);
+            };
+            magnitude2 8 16;
+
             emit '\n';
             emit (i+ '0' (isquare 3));
             emit '\n';

src/parser.rs

@@ -175,13 +175,16 @@ where It: Iterator<Item = char>
             Ok(LTIRToken::Lambda) => {
                 if children.len() == 0 {
                     tokens.next();
-                    let name = parse_symbol(tokens)?;
+
+                    let mut args = Vec::new();
+                    while let Some(Ok(LTIRToken::Symbol(_))) = tokens.peek() {
+                        args.push((parse_symbol(tokens)?, None));
+                    }
                     let body = parse_expr(tokens)?;
 
                     return Ok(LTExpr::Abstraction{
-                        arg_id: name,
+                        args,
-                        arg_type: None,
+                        body: Box::new(body)
-                        val_expr: Box::new(body)
                     });
                 } else {
                     return Err(ParseError::UnexpectedToken);

src/procedure_compiler.rs

@@ -100,7 +100,7 @@ impl ProcedureCompiler {
             }
             Statement::LetAssign{ var_id, val_expr } => { 
                 match val_expr {
-                    LTExpr::Abstraction { arg_id:_, arg_type:_, val_expr:_ } => {                        
+                    LTExpr::Abstraction { args:_, body:_ } => {
                         self.symbols.write().unwrap()
                             .declare_proc(
                                 var_id.clone(),
@@ -186,18 +186,20 @@ impl ProcedureCompiler {
                 }
                 self = self.compile(head);
             }
-            LTExpr::Abstraction { arg_id: arg_name, arg_type, val_expr } => {
+            LTExpr::Abstraction { args, body } => {
-                let id = self.symbols
+                for (arg_name, arg_type) in args.iter() {
-                    .write().unwrap()
+                    let id = self.symbols
-                    .declare_var(
+                       .write().unwrap()
-                        arg_name.clone(),
+                       .declare_var(
-                        laddertypes::TypeTerm::unit());
+                            arg_name.clone(),
-
+                            arg_type.clone().unwrap_or(
-                self.asm = self.asm
+                            laddertypes::TypeTerm::unit())
-                    .lit( id )
+                        );
-                    .call("data-frame-set");
+                    self.asm = self.asm
-
+                        .lit( id )
-                self = self.compile(val_expr);
+                        .call("data-frame-set");
+                }
+                self = self.compile(body);
             }
             LTExpr::Branch { condition, if_expr, else_expr } => {
                 self = self.compile(condition);