diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-03-22 06:07:22 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-03-22 06:07:22 -0700 |
| commit | 9293a094a0c6e7407354c42786807cfe94a53eea (patch) | |
| tree | e7f589bcc53ec3d34ed8c4dd4a5a44ca8fe2f279 | |
| parent | 380ff399f2c8c0bc514d723a736d2659d34576dc (diff) | |
| download | txr-9293a094a0c6e7407354c42786807cfe94a53eea.tar.gz txr-9293a094a0c6e7407354c42786807cfe94a53eea.tar.bz2 txr-9293a094a0c6e7407354c42786807cfe94a53eea.zip | |
dump-compiled-objects: wrong self name.
* share/txr/stdlib/compiler.tl (dump-compiled-objects):
Fixed incorrect value of self variable.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 953a4129..f510d892 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1800,7 +1800,7 @@ [compile-file-conditionally in-path out-path [mapf path-newer fstat identity]]) (defun usr:dump-compiled-objects (out-stream . compiled-objs) - (symacrolet ((self 'dump-compiled-object)) + (symacrolet ((self 'dump-compiled-objects)) (let ((out (new list-builder))) (flet ((vm-from-fun (fun) (unless (vm-fun-p fun) |