suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync generated files

Browse Source
This commit is contained in:
Matthew Flatt 2021-03-19 15:11:23 -06:00
parent 206577d701
commit a099e18767
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/bc/src/startup.inc
View File

@ -75,7 +75,7 @@ static const char *startup_source =
" (lambda (a_0 b_0) (begin (if (list? a_0) (append a_0 b_0) (raise-argument-error 'unquote-splicing \"list?\" a_0)))))"
"(define-values"
"(bad-list$1)"
" (lambda (who_0 orig-l_0) (begin 'bad-list (raise-mismatch-error who_0 \"not a proper list: \" orig-l_0))))"
" (lambda (who_0 orig-l_0) (begin 'bad-list (raise-arguments-error who_0 \"not a proper list\" \"in\" orig-l_0))))"
"(define-values"
"(member)"
"(letrec-values(((member_0)"

12
racket/src/cs/schemified/expander.scm
View File

@ -471,7 +471,7 @@
(|#%name|
bad-list
(lambda (who_0 orig-l_0)
(begin (raise-mismatch-error who_0 "not a proper list: " orig-l_0)))))
(begin (raise-arguments-error who_0 "not a proper list" "in" orig-l_0)))))
(define member
(letrec*
((member_0
@ -489,9 +489,10 @@
#f
(if (not (pair? ls_0))
(begin-unsafe
(raise-mismatch-error
(raise-arguments-error
'member
"not a proper list: "
"not a proper list"
"in"
orig-l_0))
(if (|#%app| eql?_0 v_0 (car ls_0))
ls_0
@ -501,9 +502,10 @@
(if (let ((or-part_0 (not (pair? ls_1))))
(if or-part_0 or-part_0 (eq? ls_1 turtle_0)))
(begin-unsafe
(raise-mismatch-error
(raise-arguments-error
'member
"not a proper list: "
"not a proper list"
"in"
orig-l_0))
(if (|#%app| eql?_0 v_0 (car ls_1))
ls_1