From fbfeb4211767c8f46be9c0adfaca035a25e9cd8e Mon Sep 17 00:00:00 2001 From: Vladimir Sedach Date: Mon, 21 Jun 2010 15:11:08 -0400 Subject: [PATCH] Fixed PS-INLINE (thanks to Olof-Joachim Frahm for the patch). --- src/compilation-interface.lisp | 2 +- t/ps-tests.lisp | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp index 0d3ce46..ea43641 100644 --- a/src/compilation-interface.lisp +++ b/src/compilation-interface.lisp @@ -53,7 +53,7 @@ Body is evaluated." (defmacro+ps ps-inline (form &optional (string-delimiter *js-inline-string-delimiter*)) `(concatenate 'string "javascript:" ,@(let ((*js-string-delimiter* string-delimiter)) - (parenscript-print (ps-compile form) nil)))) + (parenscript-print (compile-statement form) nil)))) (defvar *ps-read-function* #'read) diff --git a/t/ps-tests.lisp b/t/ps-tests.lisp index fe69823..75ec33f 100644 --- a/t/ps-tests.lisp +++ b/t/ps-tests.lisp @@ -1721,3 +1721,7 @@ x();") (test-ps-js add-subtract-precedence (- x (+ y z)) "x - (y + z);") + +(test-ps-js ps-inline-toplevel + (ps-inline (foo)) + "'javascript:' + 'foo()';") -- 2.11.4.GIT