18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
; _Bool (((*(*const (((v)[])))(char, unsigned
; __int128_t)))[5])
; (as i'm sure you immediately guessed)
;
; → no dependencies besides the lisp-macro.scm file
; bundled with it, and the chicken stdlib.
(import (chicken process-context))
(import (chicken condition))
(import (chicken pretty-print))
(import (chicken io))
(include "../scmlib/lisp-macro.scm")
(define (first fst . lst) fst)
(: string-reduce (list --> string))
(: words->string (list --> string))
(: separate (string list --> string))
|
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
; _Bool (((*(*const (((v)[])))(char, unsigned
; __int128_t)))[5])
; (as i'm sure you immediately guessed)
;
; → no dependencies besides the lisp-macro.scm file
; bundled with it, and the chicken stdlib.
(import (chicken process-context)
(chicken condition)
(chicken pretty-print)
(chicken io))
(include "../scmlib/lisp-macro.scm")
(define (first fst . lst) fst)
(: string-reduce (list --> string))
(: words->string (list --> string))
(: separate (string list --> string))
|