~mdw
/
fringe
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.gitignore: Ignore CLisp droppings.
[fringe]
/
icon-fringe.icn
diff --git
a/icon-fringe.icn
b/icon-fringe.icn
index
b32dbb7
..
47f88b0
100644
(file)
--- a/
icon-fringe.icn
+++ b/
icon-fringe.icn
@@
-44,14
+44,14
@@
end
###--------------------------------------------------------------------------
### Node structure.
###--------------------------------------------------------------------------
### Node structure.
-record
n
ode(left, data, right)
+record
N
ode(left, data, right)
## A simple binary tree structure.
procedure fringe(node)
## Generate the elements of the tree headed by NODE inorder.
## A simple binary tree structure.
procedure fringe(node)
## Generate the elements of the tree headed by NODE inorder.
- if
/node then fail
- suspend fringe(node.left) | node.data | fringe(node.right)
+ if
\node then
+
suspend fringe(node.left) | node.data | fringe(node.right)
end
procedure scan_tree()
end
procedure scan_tree()
@@
-60,14
+60,15
@@
procedure scan_tree()
local data, left, right
local data, left, right
- if ="(" then {
+ if not ="(" then
+ return &null
+ else {
left := scan_tree()
data := move(1) | bail("no data")
right := scan_tree()
=")" | bail("missing )")
left := scan_tree()
data := move(1) | bail("no data")
right := scan_tree()
=")" | bail("missing )")
- return node(left, data, right)
- } else
- return &null
+ return Node(left, data, right)
+ }
end
procedure parse_tree(string)
end
procedure parse_tree(string)