/usr/lib/goo/mods/eval/main.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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | ;;;; Copyright 2002, Jonathan Bachrach. See file TERMS.
(use goo)
(use goo/eval)
(use goo/system)
(use eval/ast)
(use eval/top)
(use eval/g2c)
(use goo/bignum)
;; (use tgx)
;; (use gl)
#/
(use goo/io/pretty)
(use eval/ast-print)
(use eval/typist)
(use eval/g2m)
(use eval/vm)
(use eval/profiler)
(use eval/decision-trees)
/#
(use time/threads)
(use time/lock)
(use time/event)
(use goo/random)
#/
(use cols/pipe)
/#
;; (use samurui/samurui)
;; (use tests)
;; (use tests)
;; (use beatbox)
;; Make sure the goo/user module gets compiled into our image.
(use goo/user)
(dv *goo-version* "0.155")
(dv *goo-date* "NOV 17, 2003")
(post ";;; GOO\n")
(post ";;; JONATHAN BACHRACH\n")
(post ";;; MIT CSAIL\n")
(post ";;; %s\n" *goo-date*)
(post ";;; \n")
(post ";;; VERSION = %s\n" *goo-version*)
(post ";;; ROOT = %s\n" *goo-root*)
;; (post ";;; Loading Runtime Bindings...\n")
(init-ast)
;; (post ";;; Loading System Patches...\n")
(let ((file (find-goo-file-at "init" *goo-root*)))
(and file (load-file file 'goo/user)))
;; (post ";;; Loading User Patches...\n")
(let ((file (find-goo-file-at "init" *goo-personal-root*)))
(and file (load-file file 'goo/user)))
;; (post ";;; \n")
(top 'goo/user)
|