Updated the ParenScript reference.

[clinton/parenscript.git] / src / compilation-interface.lisp

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index 3c17258..eac01eb 100644 (file)
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -5,13 +5,23 @@
 Non-null PRETTY-PRINT values result in a pretty-printed output code.
 If OUTPUT-STREAM is NIL, then the result is a string; otherwise code
 is output to the OUTPUT-STREAM stream."
-  (parenscript-print (compile-parenscript-form script-form) output-stream))
+  (parenscript-print (compile-parenscript-form script-form :expecting :statement) output-stream))
 
 (defmacro ps (&body body)
   "A macro that returns a Javascript string of the supplied Parenscript forms."
   `(ps* '(progn ,@body)))
 
 (defun ps* (&rest body)
-  "Return the javascript string representing BODY.
+  "Compiles BODY to a JavaScript string.
 Body is evaluated."
   (compile-script `(progn ,@body)))
+
+(defun ps-inline* (form)
+  (concatenate 'string
+               "javascript:"
+               (remove #\Newline
+                       (parenscript-print (compile-parenscript-form form :expecting :statement))
+                       :from-end t)))
+
+(defmacro ps-inline (&body body)
+  `(ps-inline* '(progn ,@body)))