Parent Directory | Revision Log | Patch
revision 1.315 by dirk, Wed Jun 4 05:28:34 2003 UTC | revision 1.316 by dirk, Wed Jun 4 23:22:54 2003 UTC | |
---|---|---|
# | Line 2448 dispatch: | Line 2448 dispatch: |
2448 | /* new syntactic forms go here. */ | /* new syntactic forms go here. */ |
2449 | case SCM_BIT7 (SCM_MAKISYM (0)): | case SCM_BIT7 (SCM_MAKISYM (0)): |
2450 | proc = SCM_CAR (x); | proc = SCM_CAR (x); |
2451 | if (!SCM_IFLAGP (proc)) | |
2452 | goto evapply; | |
2453 | ||
2454 | switch (SCM_ISYMNUM (proc)) | switch (SCM_ISYMNUM (proc)) |
2455 | { | { |
2456 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |