artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

check: Fix 4f-string-split.scm for Guile.

Browse source 
* module/mes/guile.scm (core:car, core:make-cell): New function.
  Fixes scaffold/boot/4f-string-split.scm.
This commit is contained in:
Jan Nieuwenhuizen 2018-08-09 09:44:54 +02:00
parent fa3cd8b9a5
commit 56cd6d58ca
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
module/mes/guile.scm
View file

@ -34,11 +34,13 @@
append2 append2
core:apply core:apply
core:car
core:display core:display
core:display-error core:display-error
core:display-port core:display-port
core:exit core:exit
core:macro-expand core:macro-expand
core:make-cell
core:write core:write
core:write-error core:write-error
core:write-port core:write-port
@ -62,6 +64,7 @@
(define core:write-port write) (define core:write-port write)
(define core:macro-expand identity) (define core:macro-expand identity)
(define (core:apply f a . m) (apply f a)) (define (core:apply f a . m) (apply f a))
(define (core:car f a . m) (apply f a))
(define append2 append) (define append2 append)
(define guile:keyword? keyword?) (define guile:keyword? keyword?)
@ -83,8 +86,11 @@
((guile:number? x) <cell:number>) ((guile:number? x) <cell:number>)
((guile:pair? x) <cell:pair>) ((guile:pair? x) <cell:pair>)
((guile:string? x) <cell:string>) ((guile:string? x) <cell:string>)
((guile:symbol? x) <cell:symbol>)))) ((guile:symbol? x) <cell:symbol>)))
(define (core:car x)
(cond ((guile:string? x) (string->list x))))
(define (core:make-cell type car cdr)
(cond ((eq? type <cell:string>) (list->string car)))))
(mes)) (mes))
(cond-expand (cond-expand