fix silent error when class don't have parent #272

jcubic · Jan 19, 2024 · 5868e64 · 5868e64
1 parent 328a419
commit 5868e64
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -31,6 +31,7 @@
 * fix reading local files in browser [#276](https://github.com/jcubic/lips/issues/276)
 * fix parsing invalid expression `(1 . 2 3)` [#245](https://github.com/jcubic/lips/issues/245)
 * fix invalid error message for not matched `syntax-rules` [#243](https://github.com/jcubic/lips/issues/243)
+* fix silent error when class don't have parent [#272](https://github.com/jcubic/lips/issues/272)
 
 ## 1.0.0-beta.17
 ### Breaking

diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/bootstrap.scm b/lib/bootstrap.scm
@@ -862,6 +862,14 @@
       (car expr)
       (list 'quote expr)))
 
+;; -----------------------------------------------------------------------------
+(define (constructor)
+  "(constructor)
+
+   Function that is present in JavaScript environment. We define it in Scheme
+   to fix an issue with define-class. This function throw an error."
+  (throw (new Error "Invalid call to constructor function")))
+
 ;; -----------------------------------------------------------------------------
 (define-macro (define-class name parent . body)
   "(define-class name parent . body)