A subtle change in the definition.  Added two quote marks.

(de if-let "Args"
  ## Better than anaphoric `if` because you can name the test result
  ## yourself.
  (let ((@Pattern "Test" @Then @Else) "Args"
        @Test-Result (eval "Test"))
    (eval
     (fill
      '(if '@Test-Result
           (let (@Pattern '@Test-Result)
             @Then)
           @Else)
      '(@Pattern @Test-Result @Then @Else)))))
-- 
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe

Reply via email to