[DISMISSED] Help w/ Need More Params Error Pls

[Mike Lobanovsky]

Hi Charles,

I'm stuck with another error that I can't figure out the cause of:

Code: OxygenBasic

1.   #console
2.  
3.   includepath "$\inc\"
4.   include     "Console.inc"
5.  
6.   indexbase 0
7.  
8.   #define T_ATOM            16384   /* 0100000000000000 *//* only for gc */
9.   #define CLRATOM           114687 /* 11011111111111111 *//* only for gc */
10.   #define DOMARK            32768  /* 01000000000000000 */
11.  
12.   #define ctype(p)          *(p + sizeof(sys) + sizeof(sys))
13.   #define isatom(p)         (ctype(p) & T_ATOM)
14.   #define setatom(p)        ctype(p) |= T_ATOM
15.   #define clratom(p)        ctype(p) &= CLRATOM
16.   #define setmark(p)        ctype(p) |= DOMARK
17.   #define ismark(p)         (ctype(p) & DOMARK)
18.  
19.   #define car(p)            *p
20.   #define cdr(p)            *(p + sizeof(sys))
21.  
22.   sub gcmark(sys a)
23.     sys t, q, p
24.    
25.     t = 0
26.     p = a
27. E2:
28.     setmark(p)
29.     if (isatom(p)) then goto E6
30.     q = car(p)
31.     if ((q != 0) && (ismark(q) != 0)) then
32.       setatom(p)
33.       car(p) = t
34.       t = p
35.       p = q
36.       goto E2
37.     end if
38. E5:
39.     q = cdr(p)
40.     if ((q != 0) && (ismark(q) != 0)) then
41.       cdr(p) = t
42.       t = p
43.       p = q
44.       goto E2
45.     end if
46. E6:
47.     if (t == 0) then exit sub
48.     q = t
49.     if (isatom(q)) then
50.       clratom(q)
51.       t = car(q)
52.       car(q) = p
53.       p = q
54.       goto E5
55.     else
56.       t = cdr(q)
57.       cdr(q) = p
58.       p = q
59.       goto E6
60.     end if
61.   end sub

It throws the following exception:

ERROR: Need more params
WORD: *
LINE: 50
FILE: main source
PASS: 1

Can you help me with that please?

[Mike Lobanovsky]

Sorry Charles,

That was a false alarm. Here I have an upper/lower case name clash. Sorry again to have bothered you for nothing.

[Charles Pegge]

Hi Mike,

If there are clashes between captialised names and others then #case capital might be useful.

#case capital sensitises the parser to fully capitalised names

[Mike Lobanovsky]

Thanks for the tip, Charles. In fact, that one together with QUOTE that clashed with Oxygen's native quote were the only ones I had to resolve. But I'll try to remember it for the future.