Improve parser - add wolfsheep prims, infix ability

[clnl] / src / main / code-parse.lisp

diff --git a/src/main/code-parse.lisp b/src/main/code-parse.lisp
index 182e4afce1a8e9993ba0bfa1d7cc7f379ce7d01e..69806ca529a71c1c0b68c0454c4be8249a108af4 100644 (file)
--- a/src/main/code-parse.lisp
+++ b/src/main/code-parse.lisp
@@ -33,7 +33,10 @@ DESCRIPTION:
 (defun parse-procedure (tokens)
  (multiple-value-bind (in-block after-block) (find-end tokens)
   (cons
-   in-block
+   (list
+    (first in-block)
+    (second in-block)
+    (clnl-parser:parse (cddr in-block)))
    (parse after-block))))
 
 (defun find-end (tokens)