Fixed subtraction regression; added new subtraction unit test.

This commit is contained in:
Simon Brooke 2026-02-24 09:08:41 +00:00
parent 62ebaf9819
commit d34d891211
5 changed files with 203 additions and 6 deletions

View file

@ -1,4 +1,9 @@
(set! documentation (lambda (name)
(:documentation (meta name))))
(set! documentation (lambda (object)
(cond ((= (type object) "LMDA")
(let (d (nth 3 (source object)))
(cond ((string? d) d)
(t (source object)))))
((member (type object) '("FUNC" "SPFM"))
(:documentation (meta object))))))
(set! doc documentation)