diff options
Diffstat (limited to 'src/lisp/clojure.lisp')
| -rw-r--r-- | src/lisp/clojure.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp/clojure.lisp b/src/lisp/clojure.lisp index 6975221f..1d9952de 100644 --- a/src/lisp/clojure.lisp +++ b/src/lisp/clojure.lisp @@ -839,7 +839,7 @@ ((:expression :return) (format t "~A.getValue()" (var-member-name (@ :symbol expr)))) (:fn - (format t "~A.fn" (var-member-name (@ :symbol expr)))) + (format t "~A.fn()" (var-member-name (@ :symbol expr)))) (:statement))) (defun emit-accessor (context expr) @@ -1138,7 +1138,7 @@ (defun emit-main (context expr) (ccase context (:top - (format t "static public void ~A(String[] args){~%try{~%~A.fn.invoke(args);~%}~%catch(Exception ex){}~%}~%" + (format t "static public void ~A(String[] args){~%try{~%~A.fn().invoke(args);~%}~%catch(Exception ex){}~%}~%" (main-string) (var-member-name (@ :fname expr)))))) (defun main-string () |