/usr/lib/goo/mods/goo/sym.goo is in goo 0.155-14.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 29 30 31 32 33 34 35 36 | ;;;; Copyright 2002, Jonathan Bachrach. See file TERMS.
(use goo/boot)
(use goo/fun)
(use goo/class)
(use goo/macros)
(use goo/math)
(use goo/types)
(use goo/app)
(use goo/cols/col)
(use goo/cols/colx)
(use goo/cols/seq)
(use goo/cols/seqx)
(use goo/cols/opts)
(use goo/cols/lst)
(use goo/cols/tup)
(use goo/cols/vec)
(use goo/cols/tab)
(dv symbols (fab <str-tab> 10000))
(df booted-fab-sym (name)
(or (elt-or symbols name #f)
(set (elt symbols name) (new <sym> sym-name name))))
(df boot-symbols ()
(rep boot ((syms %symbols))
(unless (nul? syms)
(def sym (head syms)) (set (elt symbols (sym-name sym)) sym)
(boot (tail syms)))))
(boot-symbols)
(set fab-sym booted-fab-sym)
(export <sym> sym-name)
|