mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 14:00:31 +02:00
Code Activity

srfi-1 concatenate concatenate!: move from C to Scheme

Browse source 
* libguile/srfi-1.c (scm_srfi1_concatenate, scm_srfi1_concatenate_x): delete.
* libguile/srfi-1.h (scm_srfi1_concatenate, scm_srfi1_concatenate_x): delete.
* module/srfi/srfi-1.scm: add concatenate and concatenate!.
This commit is contained in:
Rob Browning 2024-07-16 23:30:05 -05:00
parent a816b2484b
commit c62d2962d4
4 changed files with 21 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/srfi-1.test
View file

@ -463,10 +463,10 @@
(pass-if-exception "too many args" exception:wrong-num-args
(concatenate-proc '() '()))
(pass-if-exception "number" exception:wrong-type-arg
(pass-if-exception "number" '(wrong-type-arg . "Apply to non-list")
(concatenate-proc 123))
(pass-if-exception "vector" exception:wrong-type-arg
(pass-if-exception "vector" '(wrong-type-arg . "Apply to non-list")
(concatenate-proc #(1 2 3)))
(pass-if "no lists"