Fixed (return).

[clinton/parenscript.git] / src / js-macrology.lisp

diff --git a/src/js-macrology.lisp b/src/js-macrology.lisp
index f76ced8..53ed9e1 100644 (file)
--- a/src/js-macrology.lisp
+++ b/src/js-macrology.lisp
@@ -320,13 +320,15 @@
        (make-instance ',script-name :value (compile-to-expression value)))
     ))
 
-(define-parse-script-single-op return statement)
 (define-parse-script-single-op throw statement)
 (define-parse-script-single-op delete)
 (define-parse-script-single-op void)
 (define-parse-script-single-op typeof)
 (define-parse-script-single-op new)
 
+(define-script-special-form return (&optional value)
+  (make-instance 'js-return :value (compile-to-expression value)))
+
 ;;; conditional compilation
 (define-script-special-form cc-if (test &rest body)
   (make-instance 'cc-if :test test