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 | 6ff237b689590320f942a195193fed3f95934de1 (patch) | |
tree | e7f589bcc53ec3d34ed8c4dd4a5a44ca8fe2f279 /share | |
parent | c0e5857c181d39e7de1eeff71f60800a6b6861dc (diff) | |
download | txr-6ff237b689590320f942a195193fed3f95934de1.tar.gz txr-6ff237b689590320f942a195193fed3f95934de1.tar.bz2 txr-6ff237b689590320f942a195193fed3f95934de1.zip |
dump-compiled-objects: wrong self name.
* share/txr/stdlib/compiler.tl (dump-compiled-objects):
Fixed incorrect value of self variable.
Diffstat (limited to 'share')
-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) |