24 lines
509 B
Scheme
24 lines
509 B
Scheme
|
;;;; symbol-lolevel-utils.scm -*- Scheme -*-
|
||
|
|
;;;; Kon Lovett, Mar '20
|
||
|
|
;;;; Kon Lovett, Jul '18
|
||
|
|
|
||
|
|
(declare
|
||
|
|
(bound-to-procedure ##sys#intern-symbol ##sys#check-symbol))
|
||
|
|
|
||
|
|
(module symbol-lolevel-utils
|
||
|
|
|
||
|
|
(;export
|
||
|
|
interned-symbol?)
|
||
|
|
|
||
|
|
(import scheme)
|
||
|
|
(import (chicken type))
|
||
|
|
|
||
|
|
(: interned-symbol? (symbol --> boolean))
|
||
|
|
|
||
|
|
(define (check-symbol loc obj) (##sys#check-symbol obj loc) obj)
|
||
|
|
|
||
|
|
(define (interned-symbol? sym)
|
||
|
|
(##sys#interned-symbol? (check-symbol 'interned-symbol? sym)) )
|
||
|
|
|
||
|
|
) ;module symbol-lolevel-utils
|