blob: 0dc9901006d749b34df30ca7d511d02fa811edda (
plain)
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
|
############################################################################
#
# Name: skuser.icn
#
# Title: Scheme in Icon
#
# Author: Bob Alexander
#
# Date: March 23, 1995
#
# Description: see skeem.icn
#
############################################################################
#
# skeem -- Scheme in Icon
#
# Initialization list for user-defined functions
#
#
# Initialize
#
procedure InitUser()
#
# List of user-defined inialization functions to call at
# skeem-initialization-time.
#
# Add entries to this list for your user-defined primitive functions
# and syntaxes.
#
# Null entries are okay. The list is primed with the following
# entries:
#
# - InitExtra: Some extra functions and syntaxes that are not
# in the Scheme standard.
#
# - InitUser: An entry for an initialization function that can
# be provided by a user (InitUser is not defined in
# skeem).
#
return [
InitExtra, # extra functions provided -- skextra.icn
InitUser] # user-defined primitive functions (not provided)
end
|