mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 11:10:27 +02:00
* Eliminate use of low-level symbol property function.
This commit is contained in:
parent
477c9802af
commit
a5b265e3f9
2 changed files with 5 additions and 1 deletions
|
@ -1,3 +1,7 @@
|
|||
2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* syncase.scm (putprop): Use the high-level property interface.
|
||||
|
||||
2000-09-12 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
|
||||
|
||||
* psyntax.ss (build-lexical-var): Use gentemp instead of gensym;
|
||||
|
|
|
@ -97,7 +97,7 @@
|
|||
(let* ((m (current-module))
|
||||
(v (or (module-variable m symbol)
|
||||
(module-make-local-var! m symbol))))
|
||||
(if (assq 'primitive-syntax (symbol-pref symbol))
|
||||
(if (symbol-property symbol 'primitive-syntax)
|
||||
(if (eq? (current-module) the-syncase-module)
|
||||
(set-object-property! (module-variable the-root-module symbol)
|
||||
key
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue