diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-06-14 22:33:01 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-06-14 22:33:01 -0700 |
| commit | 2f2126e0e8b67b63c08ad2d86e07f076233bb2bb (patch) | |
| tree | c7531d86e77ecb57ed9814d4d5a1e693a6431351 /share | |
| parent | 28c6225fec6ce999806e9c077f08ed0e668646c4 (diff) | |
| download | txr-2f2126e0e8b67b63c08ad2d86e07f076233bb2bb.tar.gz txr-2f2126e0e8b67b63c08ad2d86e07f076233bb2bb.tar.bz2 txr-2f2126e0e8b67b63c08ad2d86e07f076233bb2bb.zip | |
compile-file: translate --lisp option in hash bang.
* share/txr/stdlib/compiler.tl (usr:compile-file): Edit the
hash-bang line to replace the --lisp option with --compiled.
This supports the situation when a TXR Lisp hash bang script
that is unsuffixed is compiled to an unsuffixed compiled
script.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 441f2c5e..233ef129 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1662,7 +1662,10 @@ (out (new list-builder))) (iflet ((line (get-line in-stream)) ((starts-with "#!" line))) - (put-line line out-stream) + (progn + (set line `@line `) + (upd line (regsub #/--lisp[^\-]/ (ret `--compiled@[@1 -1]`))) + (put-line (butlast line) out-stream)) (seek-stream in-stream 0 :from-start)) (labels ((compile-form (unex-form) (let ((form (macroexpand unex-form))) |