This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
I've started to look through `boot-9.scm', and have a question to ask. ;; ??? Would it be an optimization to write this: (define (symbol-property-remove! sym prop) (let ((pair (assoc prop (symbol-pref sym)))) (if pair (symbol-pset! sym (delq! pair (symbol-pref sym)))))) ;; ... like this instead: (define (symbol-property-remove! sym prop) (let* ((plist (symbol-pref sym)) (pair (assoc prop plist))) (if pair (symbol-pset! sym (delq! pair plist)))))] ;; ... in order to avoid calling `symbol-pref' twice?