source: project/release/5/symbol-utils/trunk/symbol-lolevel-utils.scm @ 38938

Last change on this file since 38938 was 38938, checked in by Kon Lovett, 10 months ago

add -strict-types, type is interface

File size: 465 bytes
Line 
1;;;; symbol-lolevel-utils.scm  -*- Scheme -*-
2;;;; Kon Lovett, Mar '20
3;;;; Kon Lovett, Jul '18
4
5(declare
6  (bound-to-procedure ##sys#intern-symbol))
7
8(module symbol-lolevel-utils
9
10(;export
11  interned-symbol?)
12
13(import scheme)
14(import (chicken type))
15(import (only type-checks check-symbol))
16
17(: interned-symbol? (symbol --> boolean))
18
19(define (interned-symbol? sym)
20  (##sys#interned-symbol? (check-symbol 'interned-symbol? sym)) )
21
22) ;module symbol-lolevel-utils
Note: See TracBrowser for help on using the repository browser.