author | Alan Dipert
<alan@dipert.org> 2020-01-14 03:50:46 UTC |
committer | Alan Dipert
<alan@dipert.org> 2020-01-14 03:50:46 UTC |
parent | 3bbf30f3aa356db9354a439520f5ea720372e69b |
boot.lisp | +4 | -4 |
diff --git a/boot.lisp b/boot.lisp index c5c877f..e772950 100644 --- a/boot.lisp +++ b/boot.lisp @@ -18,7 +18,10 @@ ,@body)) ',name))) -(\. *package* (|exportSymbol| (\. "DEFUN" (|toString|)))) +(defun %export (symbol) + (\. *package* (|exportSymbol| (\. symbol |name|)))) + +(%export 'defun) (defmacro defun (name params &rest body) `(jacl:%progn (jacl:%js "(~{}.fvalue = ~{})" @@ -26,9 +29,6 @@ (jacl:%lambda ,params ,@body)) ',name)) -(defun %export (symbol) - (\. *package* (|exportSymbol| (\. symbol |name|)))) - (%export 'set) (defun set (symbol value) (%js "(~{}.value = ~{})" symbol value))