mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

* Eliminate use of low-level symbol property function.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-12 10:34:09 +00:00
parent 477c9802af
commit a5b265e3f9
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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> 2000-09-12 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* psyntax.ss (build-lexical-var): Use gentemp instead of gensym; * psyntax.ss (build-lexical-var): Use gentemp instead of gensym;

2
ice-9/syncase.scm
View file

@ -97,7 +97,7 @@
(let* ((m (current-module)) (let* ((m (current-module))
(v (or (module-variable m symbol) (v (or (module-variable m symbol)
(module-make-local-var! 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) (if (eq? (current-module) the-syncase-module)
(set-object-property! (module-variable the-root-module symbol) (set-object-property! (module-variable the-root-module symbol)
key key