lassik
/
snow
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify shell-quote deps

This commit is contained in:
Lassi Kortela 2024-12-01 16:21:01 +02:00
parent f7be9e47fc
commit a01569c887
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lassik/shell-quote.sld
View File

@ -3,14 +3,14 @@
(define-library (lassik shell-quote)
(export shell-quote)
(import (scheme base) (scheme write) (chibi match))
(cond-expand
((library (srfi 175)) (import (srfi 175)))
(else (import (scheme char))
(begin (define (ascii-alphanumeric? char)
(or (char-alphabetic? char) (char-numeric? char))))))
(import (scheme base)
(scheme char)
(chibi match))
(begin
(define (ascii-alphanumeric? char)
(or (char-alphabetic? char) (char-numeric? char)))
(define (delimit delimiter strings)
(if (null? strings) ""
(let loop ((strings (cdr strings)) (acc (car strings)))