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 @@ ...@@ -805,7 +805,7 @@
805 805
806 (define (sieve-code-finish) 806 (define (sieve-code-finish)
807 (if (not (null? sieve-exp)) 807 (if (not (null? sieve-exp))
808 (set! sieve-code-list (append sieve-code-list sieve-exp)))) 808 (set! sieve-code-list (append sieve-code-list sieve-exp (list #t)))))
809 809
810 ;;; Print the program 810 ;;; Print the program
811 811
......