diff options
| author |  Peter McGoron
| 2025-04-12 12:54:35 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-04-12 12:54:35 -0400 |
| commit | 638df69633e1a36079a9c53bf35b4f9090609bb4 (patch) | |
| tree | 062e091c1f0341898c1c89bda6673d6911a93b92 /lowlevel.scm | |
| parent | trigger a manual minor garbage collection to try and smoke out stack corruption (diff) | |
test predicates on non-procedures0.9.0
Diffstat (limited to '')
| -rw-r--r-- | lowlevel.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lowlevel.scm b/lowlevel.scm index 3f22155..21bfba8 100644 --- a/lowlevel.scm +++ b/lowlevel.scm @@ -28,6 +28,8 @@ ;;; The code works by having a "signifier pair", whose car is a unique ;;; (in the sense of eqv) symbol and whose cdr is a integer map to the ;;; tag values. +;;; +;;; The code is similar to `extend-procedure`. (define unique-id ;; Generate a fixnum, which will serve as the ID for each tagged |