diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-06-15 10:19:38 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-06-15 10:19:38 -0700 |
| commit | 9c16901bbe523d7915d57ae969e045f0d1829906 (patch) | |
| tree | 29b6378c9b687bad732ef6176e19a8110263a785 | |
| parent | bebe04c619a22a10252014333303e0fcddaf6ebc (diff) | |
| download | txr-9c16901bbe523d7915d57ae969e045f0d1829906.tar.gz txr-9c16901bbe523d7915d57ae969e045f0d1829906.tar.bz2 txr-9c16901bbe523d7915d57ae969e045f0d1829906.zip | |
compiler: value is no optional in fbind/lbind.
This should hav been part of the May 26, 2025 commit
d70b55a0023eda8d776f18d224e4487f5e0d484e.
* stdlib/compiler.tl (compiler comp-fbind): The form is
not optional in fbind/lbind bindings; the syntax is
(sym form); we don't have to use optional binding syntax.
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index f9566b27..5ff71a96 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1066,7 +1066,7 @@ nenv.(extend-fun lfun)) (let* (ffuns fvars (ffrags (collect-each ((fi fis)) - (tree-bind (sym : form) fi + (tree-bind (sym form) fi (let* ((bind nenv.(lookup-fun sym)) (*tail-fun* (if rec (new tail-fun-info |