define the complex type before the remainder of the functions

coalton-lang · Oct 12, 2023 · fcec26b · fcec26b
1 parent d294b48
commit fcec26b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/library/math/complex.lisp b/library/math/complex.lisp
@@ -30,7 +30,9 @@
   (define-type (Complex :a)
     "Complex number that may either have a native or constructed representation."
     (%Complex :a :a))
+)                                     ; COALTON-TOPLEVEL
 
+(coalton-toplevel
   (define-class (Num :a => Complex :a)
     (complex (:a -> :a -> (Complex :a)))
     (real-part (Complex :a -> :a))