quick fix for #32

defaultxr · Jun 10, 2022 · db5630a · db5630a
1 parent 6138c0a
commit db5630a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/backends/supercollider.lisp b/src/backends/supercollider.lisp
@@ -120,7 +120,8 @@
          (lambda-list (getf val :lambda-list))
          (body (getf val :body)))
     `(define-cl-collider-pseugen ,function ,lambda-list
-       ,@body)))
+       (block ,function
+         ,@body))))
 
 ;; convert all of the functions in `*conversions*'
 #.(loop :for function :in (keys *conversions*)