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) (define-library (lassik shell-quote)
(export shell-quote) (export shell-quote)
(import (scheme base) (scheme write) (chibi match)) (import (scheme base)
(cond-expand (scheme char)
((library (srfi 175)) (import (srfi 175))) (chibi match))
(else (import (scheme char))
(begin (define (ascii-alphanumeric? char)
(or (char-alphabetic? char) (char-numeric? char))))))
(begin (begin
(define (ascii-alphanumeric? char)
(or (char-alphabetic? char) (char-numeric? char)))
(define (delimit delimiter strings) (define (delimit delimiter strings)
(if (null? strings) "" (if (null? strings) ""
(let loop ((strings (cdr strings)) (acc (car strings))) (let loop ((strings (cdr strings)) (acc (car strings)))