projects
/
rrq
/
lsp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
working snapshot
[rrq/lsp-utils.git]
/
lsp-misc
/
misc.lsp
diff --git
a/lsp-misc/misc.lsp
b/lsp-misc/misc.lsp
index cf92d9cb2b110469ed163a381daef0d2d375c1cb..f60d0d3ea86fa7fe8ae2c5820bb426a89f958986 100644
(file)
--- a/
lsp-misc/misc.lsp
+++ b/
lsp-misc/misc.lsp
@@
-3,7
+3,7
@@
(define (die N)
(when (args) (write-line 2 (join (map string (args)) " ")))
(define (die N)
(when (args) (write-line 2 (join (map string (args)) " ")))
- (
exit N
))
+ (
and N (exit N)
))
(global 'die)
;; Print binary byte as octal or as ASCII character [32-126]
(global 'die)
;; Print binary byte as octal or as ASCII character [32-126]
@@
-12,5
+12,5
@@
;; Print string as binary octals
(define (octals-string S)
;; Print string as binary octals
(define (octals-string S)
- (join (map octal-byte (unpack (dup "b" (length S)) S)))
""
)
+ (join (map octal-byte (unpack (dup "b" (length S)) S))))
(global 'octals-string 'octal-byte)
(global 'octals-string 'octal-byte)