mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

goops moving away from evaluator opcodes, and a primitive compilation fix

Browse source 
* module/oop/goops.scm (@slot-ref, @slot-set!): Define "primitives" for
  these. Probably should do something more general, though, allowing
  @struct-ref.

* module/language/tree-il/primitives.scm (add-interesting-primitive!):
  Error if the primitive isn't bound.
This commit is contained in:
Andy Wingo 2009-11-28 01:19:31 +01:00
parent c58b8c5aed
commit 83c7655002
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/primitives.scm
View file

@ -79,7 +79,8 @@
(define (add-interesting-primitive! name)
(hashq-set! *interesting-primitive-vars*
(module-variable (current-module) name)
(or (module-variable (current-module) name)
(error "unbound interesting primitive" name))
name))
(define *interesting-primitive-vars* (make-hash-table))