(read-sections (append section (list line))))))))
(read-sections))))
(make-model
- :code (format nil "~{~A~^~%~}" (nth 0 sections))
+ :code (clnl-code-parser:parse (clnl-lexer:lex (format nil "~{~A~^~%~}" (nth 0 sections))))
:interface (parse-interface (nth 1 sections))
:info (nth 2 sections)
:turtle-shapes (nth 3 sections)
:ymin (view-min-pycor view)
:ymax (view-max-pycor view))))
-(defun parse-code (model)
- (clnl-code-parser:parse (clnl-lexer:lex (model-code model))))
-
; For now, we keep the code hidden in this package
(defun globals (model)
"GLOBALS MODEL => GLOBALS
(intern (string-upcase (car pair)) clnl:*model-package*)
(cadr pair)))
(append
- (clnl-code-parser:globals (parse-code model))
+ (clnl-code-parser:globals (model-code model))
(remove nil
(mapcar
(lambda (widget)