💾 Archived View for tozip.chickenkiller.com › guile.gmi captured on 2023-04-19 at 22:30:52. Gemini links have been rewritten to link to archived content
⬅️ Previous capture (2023-03-20)
-=-=-=-=-=-=-
Created 2022-07-07 Updated 2022-12-01
(define-syntax aif-version-1
(lambda (x)
(syntax-case x ()
((_ test then else)
(with-syntax ((it (datum->syntax x 'it)))
#'(let ((it test))
(if it then else)))))))
(define-macro (aif-version-2 test then else)
`(let ((it ,test))
(if it ,then ,else)))
(aif-version-2 2 (+ 1 it) 'bomb) ; => 3
Responses to the above code:
ctrl-c: Common Lisp Anaphoric IF
idiomdrottning: A problem with Guile’s defmacro
Read the output from a command:
(use-modules (ice-9 popen))
(define (read-command-v1 cmd)
(define port (open-input-pipe cmd))
(define str (reverse-list->string
(let loop ((char (read-char port))
(result '()))
;(display char)
(if (eof-object? char)
result
(loop (read-char port) (cons char result))))))
(close-pipe port)
str)
(define (read-command-v2 cmd)
(with-input-from-port (open-input-pipe cmd) read-string))
(display (read-command-v2 "ls -hal"))
See also:
cut: srfi-26