File: selfset.scm

package info (click to toggle)
slib 3a4-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,788 kB
  • ctags: 2,171
  • sloc: lisp: 28,038; makefile: 453; sh: 264
file content (28 lines) | stat: -rw-r--r-- 457 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
;;"selfset.scm" Set single letter identifiers to their symbols.
;@
 (define a 'a)
 (define b 'b)
 (define c 'c)
 (define d 'd)
 (define e 'e)
 (define f 'f)
 (define g 'g)
 (define h 'h)
 (define i 'i)
 (define j 'j)
 (define k 'k)
 (define l 'l)
 (define m 'm)
 (define n 'n)
 (define o 'o)
 (define p 'p)
 (define q 'q)
 (define r 'r)
 (define s 's)
 (define t 't)
 (define u 'u)
 (define v 'v)
 (define w 'w)
 (define x 'x)
 (define y 'y)
 (define z 'z)