Ignore:
Timestamp:
03/12/08 16:14:23 (14 years ago)
Author:
Kon Lovett
Message:

Rmvd dep procs. Updated doc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/misc-extn/trunk/misc-extn-symbol-support.scm

    r5437 r9512  
    44(eval-when (compile)
    55  (declare
     6    (usual-integrations)
    67    (fixnum)
    78    (inline)
    89    (no-procedure-checks)
    910    (no-bound-checks)
    10     (import
    11       ##sys#interned-symbol?
    12       ##sys#make-symbol
    13       ##sys#symbol->qualified-string
    14       ##sys#qualified-symbol-prefix
    15       ##sys#intern-symbol)
    1611    (bound-to-procedure
    1712      ##sys#interned-symbol?
     
    1914      ##sys#symbol->qualified-string
    2015      ##sys#qualified-symbol-prefix
    21       ##sys#intern-symbol)
     16      ##sys#intern-symbol )
    2217    (export
    2318      interned-symbol?
     
    2520      make-qualified-uninterned-symbol
    2621      make-qualified-symbol
    27       qualified-symbol?) ) )
     22      qualified-symbol? ) ) )
    2823
    2924;;
     
    4540         [nsl (string-length ns)])
    4641    (if (<= 1 nsl NAMESPACE-MAX-ID-LEN)
    47       (conc (integer->char nsl) ns sym)
    48       (error loc "invalid namespace identifier length" ns) ) ) )
     42        (conc (integer->char nsl) ns sym)
     43        (error loc "invalid namespace identifier length" ns) ) ) )
    4944
    5045;; Chicken namespace qualified symbol.
     
    5853(define (qualified-symbol? sym)
    5954  (check-symbol sym 'qualified-symbol?)
    60   (not (not (##sys#qualified-symbol-prefix sym))) )
     55  (and (##sys#qualified-symbol-prefix sym)
     56       #t ) )
    6157
    6258(define (symbol->qualified-string sym)
Note: See TracChangeset for help on using the changeset viewer.