Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit 8ace53a7 8ace53a78d422c0660d9cf944e5c863d9c0c0c23 by Sergey Poznyakoff
Options

Add final #t to the generated code to allow for empty sieve scripts

1 parent 5d08ab37
Inline Side-by-side
Showing 1 changed file with 1 additions and 1 deletions
......@@ -805,7 +805,7 @@
(define (sieve-code-finish)
(if (not (null? sieve-exp))
(set! sieve-code-list (append sieve-code-list sieve-exp))))
(set! sieve-code-list (append sieve-code-list sieve-exp (list #t)))))
;;; Print the program
......