Allow multi-line legacy define-c arg lists

This commit is contained in:
Justin Ethier 2021-03-09 22:36:35 -05:00
parent 8a0986cb0b
commit 93a548e106

View file

@ -2413,7 +2413,7 @@
(list->string (list->string
(filter (filter
(lambda (c) (lambda (c)
(not (member c '(#\( #\))))) (not (member c '(#\newline #\( #\)))))
(string->list str)))) (string->list str))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;