Changeset 34897 in project


Ignore:
Timestamp:
11/19/17 21:37:13 (3 years ago)
Author:
Kon Lovett
Message:

true meaning of the holidays

Location:
release/4/apropos/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos.scm

    r34868 r34897  
    579579;;
    580580
    581 ;procedure cache
    582 (define *str->sym*)
    583 
    584581(define apropos-interning (make-parameter #t (lambda (x)
    585582  (if (boolean? x)
    586     (begin
    587       (set! *str->sym* (if x string->symbol string->uninterned-symbol))
    588       x )
     583    x
    589584    (begin
    590585      (warning 'apropos-interning "not a boolean: " x)
     
    592587
    593588(define-inline (string->display-symbol str)
    594   (*str->sym* str) )
     589  ((if (apropos-interning) string->symbol string->uninterned-symbol) str) )
    595590
    596591;;
  • release/4/apropos/trunk/apropos.setup

    r34868 r34897  
    99  (exit 1) )
    1010
    11 (setup-shared-extension-module 'apropos (extension-version "2.5.1")
     11(setup-shared-extension-module 'apropos (extension-version "2.5.2")
    1212  #:types? #t
    1313  #:inline? #t
Note: See TracChangeset for help on using the changeset viewer.