Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing copy/paste error in inlined `remove' in chibi-ffi.

Browse source
This commit is contained in:
Alex Shinn 2015-01-22 11:25:11 +09:00
parent 8e4d4889c3
commit 7156ce08b2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/chibi-ffi
View file

@ -288,8 +288,8 @@
(define (remove pred ls) (define (remove pred ls)
(cond ((null? ls) '()) (cond ((null? ls) '())
((pred (car ls)) (filter pred (cdr ls))) ((pred (car ls)) (remove pred (cdr ls)))
(else (cons (car ls) (filter pred (cdr ls)))))) (else (cons (car ls) (remove pred (cdr ls))))))
(define (strip-extension path) (define (strip-extension path)
(let lp ((i (- (string-length path) 1))) (let lp ((i (- (string-length path) 1)))