diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-04-30 15:53:38 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-04-30 15:53:38 +0000 |
| commit | b5d91b20e71866ed881e2d8fa2f8164162b0a4e8 (patch) | |
| tree | c02517119071097cc4d21ce7796f58d51ab1e4c2 /src/lisp/test.lisp | |
| parent | afc0139caa18f577971fbdfc2a16f35f6c9f44a1 (diff) | |
more closure support
Diffstat (limited to 'src/lisp/test.lisp')
| -rw-r--r-- | src/lisp/test.lisp | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index 2594cc33..bbaf6e0a 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp @@ -20,14 +20,18 @@ (:foo x)) (defn fl (a b c) - (let ((d (let ((x a)) x))) - d) + (let ((d (let ((x a)) + x))) + d) (let ((e c)) - e)) + e)) (defn fl* (a b c) (let* ((d b) (e d)) - e)) + e)) + +(defn always (x) + (fn () x)) (defn fr (a b & c) c)
\ No newline at end of file |