Fix `when/splice' inconsistent return types #131

Closed

leafac wants to merge 1 commits from patch-1 into master

1 changed files with 1 additions and 1 deletions

										
											2

pollen/core.rkt

										Unescape
										Escape
									
											View File
										
					@ -121,7 +121,7 @@

					       #'(if COND

					       #'(if COND

					             (with-handlers ([exn:fail? (λ(exn) (error (format "within when/splice, ~a" (exn-message exn))))])

					             (with-handlers ([exn:fail? (λ(exn) (error (format "within when/splice, ~a" (exn-message exn))))])

					               (SPLICING-TAG BODY ...)) 

					               (SPLICING-TAG BODY ...)) 

					             ""))]))

					             '()))]))

					(provide when/block) ; bw compat

					(provide when/block) ; bw compat

Loading…

Cancel

Save