Commit 2014f69b authored by Attila Lendvai's avatar Attila Lendvai
Browse files

housekeeping

Ignore-this: a05c5fbace98b282a464b829711e064f

darcs-hash:eae27fe07c9c168afa9206922ac7a1182da218f8
parent 6c6fd408
...@@ -2363,7 +2363,7 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)" ...@@ -2363,7 +2363,7 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)"
;;; (IF-FIRST-TIME then &optional else) ;;; (IF-FIRST-TIME then &optional else)
(def-special-clause if-first-time (then &optional else) (def-special-clause if-first-time (then &optional else)
"Evaluate branch depending on whether this clause if met for the first time" "Evaluate branch depending on whether this clause is met for the first time"
(return-code :body (list (return-code :body (list
(if-1st-time (list (walk-expr then)) (if-1st-time (list (walk-expr then))
(if else (list (walk-expr else))))))) (if else (list (walk-expr else)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment