Permalink
Browse files

NORMAL even better support for context based encoding.

  • Loading branch information...
1 parent a96ddee commit 8717301d9fc9c830dd4706155661faba167ee062 @VincentToups committed Apr 23, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 parenlab.el
View
@@ -182,7 +182,7 @@
"Set is transcoded to assignment."
(pl:transcode target)
(pl:insertf " = ")
- (pl:transcode value)
+ (pl:transcode value :as-expression)
(pl:insertf "; ")
(recur `(setq ,@others)))
@@ -486,6 +486,7 @@ regular, non-functional if statement."
(pl:transcode-sequence body)
(basic-save-buffer))
(pl:maybe-kill-buffer output-buffer)))
+
(defvar *pl-macros* (make-hash-table))
(defun pl:pl-macrop (symbol)
@@ -541,7 +542,7 @@ regular, non-functional if statement."
(loop for arg in arguments and
i from 1
do
- (pl:transcode arg)
+ (pl:transcode arg :as-expression)
when (< i (length arguments))
do
(pl:insertf ", ")

0 comments on commit 8717301

Please sign in to comment.