blob: de603adc33ca1b32daee9ef43f81808c5713c086 (
plain) (
tree)
|
|
;; Does it make more sense to write everything in Lisp rather than a split Lisp/COMAL design?
(defun one-command-h (c)
(case (car c)
((line) (insert (cadr c)))
((p-end) (signal-condition (create (class <simple-error>))))))
(defun main-loop (program env)
(defun main-h ()
(format (standard-output) "OpenCOMAL version 0.4~%~%")
(main-loop nil nil))
(defun bye ()
(format (standard-output) "See you later...~%"))
|