VAL0 531 src/vm.c VAL0 = after__(VAL0, data__); \ VAL0 685 src/vm.c ScmObj x_, y_ = VAL0; \ VAL0 700 src/vm.c ScmObj x_, y_ = VAL0; \ VAL0 777 src/vm.c FETCH_OPERAND(VAL0); VAL0 789 src/vm.c PUSH_ARG(VAL0); VAL0 794 src/vm.c PUSH_ARG(VAL0); VAL0 853 src/vm.c if (MOSTLY_FALSE(!SCM_PROCEDUREP(VAL0))) { VAL0 859 src/vm.c *(SP-argc) = VAL0; VAL0 861 src/vm.c VAL0 = SCM_OBJ(&Scm_GenericObjectApply); VAL0 869 src/vm.c proctype = SCM_PROCEDURE_TYPE(VAL0); VAL0 874 src/vm.c ADJUST_ARGUMENT_FRAME(VAL0, argc); VAL0 879 src/vm.c SCM_PROF_COUNT_CALL(vm, VAL0); VAL0 880 src/vm.c VAL0 = SCM_SUBR(VAL0)->func(ARGP, argc, VAL0 881 src/vm.c SCM_SUBR(VAL0)->data); VAL0 889 src/vm.c ADJUST_ARGUMENT_FRAME(VAL0, argc); VAL0 891 src/vm.c FINISH_ENV(SCM_PROCEDURE_INFO(VAL0), VAL0 892 src/vm.c SCM_CLOSURE(VAL0)->env); VAL0 894 src/vm.c ENV = SCM_CLOSURE(VAL0)->env; VAL0 897 src/vm.c vm->base = SCM_COMPILED_CODE(SCM_CLOSURE(VAL0)->code); VAL0 909 src/vm.c if (!SCM_GENERICP(VAL0)) { VAL0 921 src/vm.c PUSH_ARG(VAL0); VAL0 923 src/vm.c VAL0 = SCM_OBJ(&Scm_GenericApplyGeneric); VAL0 927 src/vm.c mm = Scm_ComputeApplicableMethods(SCM_GENERIC(VAL0), VAL0 931 src/vm.c nm = Scm_MakeNextMethod(SCM_GENERIC(VAL0), VAL0 934 src/vm.c VAL0 = SCM_CAR(mm); VAL0 938 src/vm.c ScmNextMethod *n = SCM_NEXT_METHOD(VAL0); VAL0 946 src/vm.c VAL0 = SCM_OBJ(n->generic); VAL0 952 src/vm.c VAL0 = SCM_CAR(n->methods); VAL0 962 src/vm.c FINISH_ENV(SCM_PROCEDURE_INFO(VAL0), NULL); VAL0 965 src/vm.c SCM_PROF_COUNT_CALL(vm, VAL0); VAL0 966 src/vm.c VAL0 = SCM_GENERIC(VAL0)->fallback(fp, VAL0 968 src/vm.c SCM_GENERIC(VAL0)); VAL0 979 src/vm.c ADJUST_ARGUMENT_FRAME(VAL0, argc); VAL0 982 src/vm.c if (SCM_METHOD(VAL0)->func) { VAL0 984 src/vm.c FINISH_ENV(SCM_PROCEDURE_INFO(VAL0), NULL); VAL0 987 src/vm.c SCM_PROF_COUNT_CALL(vm, VAL0); VAL0 988 src/vm.c VAL0 = SCM_METHOD(VAL0)->func(SCM_NEXT_METHOD(nm), VAL0 991 src/vm.c SCM_METHOD(VAL0)->data); VAL0 1001 src/vm.c FINISH_ENV(SCM_PROCEDURE_INFO(VAL0), VAL0 1002 src/vm.c SCM_METHOD(VAL0)->env); VAL0 1003 src/vm.c VM_ASSERT(SCM_COMPILED_CODE_P(SCM_METHOD(VAL0)->data)); VAL0 1004 src/vm.c vm->base = SCM_COMPILED_CODE(SCM_METHOD(VAL0)->data); VAL0 1015 src/vm.c VAL0, SCM_PROCEDURE_REQUIRED(VAL0), argc)); VAL0 1026 src/vm.c if (SCM_FALSEP(VAL0)) RETURN_OP(); VAL0 1030 src/vm.c if (!SCM_FALSEP(VAL0)) RETURN_OP(); VAL0 1034 src/vm.c if (!SCM_NULLP(VAL0)) { VAL0 1035 src/vm.c VAL0 = SCM_FALSE; VAL0 1044 src/vm.c if (!SCM_EQ(VAL0, v)) { VAL0 1045 src/vm.c VAL0 = SCM_FALSE; VAL0 1054 src/vm.c if (!Scm_EqvP(VAL0, v)) { VAL0 1055 src/vm.c VAL0 = SCM_FALSE; VAL0 1068 src/vm.c PUSH_ARG(VAL0); VAL0 1075 src/vm.c VAL0 = v; VAL0 1091 src/vm.c PUSH_ARG(VAL0); VAL0 1098 src/vm.c VAL0 = v; VAL0 1108 src/vm.c PUSH_ARG(VAL0); VAL0 1115 src/vm.c VAL0 = v; VAL0 1118 src/vm.c CASE(SCM_VM_LREF0) { VAL0 = ENV_DATA(ENV, 0); NEXT1; } VAL0 1119 src/vm.c CASE(SCM_VM_LREF1) { VAL0 = ENV_DATA(ENV, 1); NEXT1; } VAL0 1120 src/vm.c CASE(SCM_VM_LREF2) { VAL0 = ENV_DATA(ENV, 2); NEXT1; } VAL0 1121 src/vm.c CASE(SCM_VM_LREF3) { VAL0 = ENV_DATA(ENV, 3); NEXT1; } VAL0 1122 src/vm.c CASE(SCM_VM_LREF10) { VAL0 = ENV_DATA(ENV->up, 0); NEXT1; } VAL0 1123 src/vm.c CASE(SCM_VM_LREF11) { VAL0 = ENV_DATA(ENV->up, 1); NEXT1; } VAL0 1124 src/vm.c CASE(SCM_VM_LREF12) { VAL0 = ENV_DATA(ENV->up, 2); NEXT1; } VAL0 1125 src/vm.c CASE(SCM_VM_LREF20) { VAL0 = ENV_DATA(ENV->up->up, 0);NEXT1; } VAL0 1126 src/vm.c CASE(SCM_VM_LREF21) { VAL0 = ENV_DATA(ENV->up->up, 1);NEXT1; } VAL0 1127 src/vm.c CASE(SCM_VM_LREF30) { VAL0 = ENV_DATA(ENV->up->up->up, 0);NEXT1; } VAL0 1129 src/vm.c /*OB*/CASE(SCM_VM_LREF4) { VAL0 = ENV_DATA(ENV, 4); NEXT1; } VAL0 1130 src/vm.c /*OB*/CASE(SCM_VM_LREF13) { VAL0 = ENV_DATA(ENV->up, 3); NEXT1; } VAL0 1131 src/vm.c /*OB*/CASE(SCM_VM_LREF14) { VAL0 = ENV_DATA(ENV->up, 4); NEXT1; } VAL0 1144 src/vm.c VAL0 = ENV_DATA(e, off); VAL0 1181 src/vm.c PUSH_ARG(VAL0); VAL0 1243 src/vm.c VM_ASSERT(SCM_CLOSUREP(VAL0)); VAL0 1260 src/vm.c VM_ASSERT(SCM_CLOSUREP(VAL0)); VAL0 1263 src/vm.c FINISH_ENV(SCM_FALSE, SCM_CLOSURE(VAL0)->env); VAL0 1265 src/vm.c ENV = SCM_CLOSURE(VAL0)->env; VAL0 1268 src/vm.c vm->base = SCM_COMPILED_CODE(SCM_CLOSURE(VAL0)->code); VAL0 1295 src/vm.c VAL0 = clo; VAL0 1306 src/vm.c SCM_GLOC_SET(SCM_GLOC(loc), VAL0); VAL0 1329 src/vm.c SCM_GLOC_SET(gloc, VAL0); VAL0 1337 src/vm.c /*OB*/CASE(SCM_VM_LSET0) { ENV_DATA(ENV, 0) = VAL0; NEXT1; } VAL0 1338 src/vm.c /*OB*/CASE(SCM_VM_LSET1) { ENV_DATA(ENV, 1) = VAL0; NEXT1; } VAL0 1339 src/vm.c /*OB*/CASE(SCM_VM_LSET2) { ENV_DATA(ENV, 2) = VAL0; NEXT1; } VAL0 1340 src/vm.c /*OB*/CASE(SCM_VM_LSET3) { ENV_DATA(ENV, 3) = VAL0; NEXT1; } VAL0 1341 src/vm.c /*OB*/CASE(SCM_VM_LSET4) { ENV_DATA(ENV, 4) = VAL0; NEXT1; } VAL0 1353 src/vm.c ENV_DATA(e, off) = VAL0; VAL0 1367 src/vm.c (name = SCM_IDENTIFIER(var)->name), VAL0); VAL0 1370 src/vm.c (name = SCM_IDENTIFIER(var)->name), VAL0); VAL0 1372 src/vm.c VAL0 = SCM_OBJ(name); VAL0 1376 src/vm.c if (SCM_FALSEP(VAL0)) { VAL0 1384 src/vm.c if (!SCM_FALSEP(VAL0)) { VAL0 1392 src/vm.c if (!SCM_NULLP(VAL0)) { VAL0 1393 src/vm.c VAL0 = SCM_FALSE; VAL0 1396 src/vm.c VAL0 = SCM_TRUE; VAL0 1404 src/vm.c if (!SCM_EQ(VAL0, z)) { VAL0 1405 src/vm.c VAL0 = SCM_FALSE; VAL0 1408 src/vm.c VAL0 = SCM_TRUE; VAL0 1417 src/vm.c if (!SCM_EQ(VAL0, z)) { VAL0 1418 src/vm.c VAL0 = SCM_FALSE; VAL0 1421 src/vm.c VAL0 = SCM_TRUE; VAL0 1429 src/vm.c if (!Scm_EqvP(VAL0, z)) { VAL0 1430 src/vm.c VAL0 = SCM_FALSE; VAL0 1433 src/vm.c VAL0 = SCM_TRUE; VAL0 1442 src/vm.c if (!Scm_EqvP(VAL0, z)) { VAL0 1443 src/vm.c VAL0 = SCM_FALSE; VAL0 1446 src/vm.c VAL0 = SCM_TRUE; VAL0 1452 src/vm.c ScmObj x, y = VAL0; VAL0 1456 src/vm.c VAL0 = SCM_FALSE; VAL0 1459 src/vm.c VAL0 = SCM_TRUE; VAL0 1466 src/vm.c ScmObj v0 = VAL0; VAL0 1468 src/vm.c VM_ERR(("Number required, but got %S", VAL0)); VAL0 1472 src/vm.c VAL0 = SCM_TRUE; VAL0 1475 src/vm.c VAL0 = SCM_FALSE; VAL0 1483 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 1491 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 1499 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 1507 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 1519 src/vm.c VAL0 = Scm_MakeClosure(body, get_env(vm)); VAL0 1551 src/vm.c PUSH_ARG(VAL0); VAL0 1554 src/vm.c SCM_APPEND1(rest, tail, VAL0); VAL0 1572 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 1576 src/vm.c VAL0 = SCM_NIL; VAL0 1580 src/vm.c VAL0 = SCM_FALSE; VAL0 1584 src/vm.c VAL0 = SCM_UNDEFINED; VAL0 1601 src/vm.c FETCH_OPERAND(VAL0); VAL0 1607 src/vm.c VAL0 = SCM_FALSE; VAL0 1613 src/vm.c VAL0 = SCM_UNDEFINED; VAL0 1624 src/vm.c VAL0 = Scm_Cons(ca, VAL0); VAL0 1631 src/vm.c VAL0 = Scm_Cons(ca, VAL0); VAL0 1632 src/vm.c PUSH_ARG(VAL0); VAL0 1636 src/vm.c if (!SCM_PAIRP(VAL0)) { VAL0 1637 src/vm.c VM_ERR(("pair required, but got %S", VAL0)); VAL0 1639 src/vm.c VAL0 = SCM_CAR(VAL0); VAL0 1643 src/vm.c ScmObj obj = VAL0; VAL0 1652 src/vm.c if (!SCM_PAIRP(VAL0)) { VAL0 1653 src/vm.c VM_ERR(("pair required, but got %S", VAL0)); VAL0 1655 src/vm.c VAL0 = SCM_CDR(VAL0); VAL0 1659 src/vm.c ScmObj obj = VAL0; VAL0 1668 src/vm.c ScmObj obj = VAL0; VAL0 1676 src/vm.c VAL0 = SCM_CAR(obj); VAL0 1680 src/vm.c ScmObj obj = VAL0; VAL0 1693 src/vm.c ScmObj obj = VAL0; VAL0 1701 src/vm.c VAL0 = SCM_CAR(obj); VAL0 1705 src/vm.c ScmObj obj = VAL0; VAL0 1718 src/vm.c ScmObj obj = VAL0; VAL0 1726 src/vm.c VAL0 = SCM_CDR(obj); VAL0 1730 src/vm.c ScmObj obj = VAL0; VAL0 1743 src/vm.c ScmObj obj = VAL0; VAL0 1751 src/vm.c VAL0 = SCM_CDR(obj); VAL0 1755 src/vm.c ScmObj obj = VAL0; VAL0 1773 src/vm.c cp = Scm_Cons(VAL0, cp); VAL0 1780 src/vm.c VAL0 = cp; VAL0 1788 src/vm.c cp = VAL0; VAL0 1795 src/vm.c VAL0 = cp; VAL0 1800 src/vm.c VAL0 = Scm_ListToVector(VAL0, 0, -1); VAL0 1806 src/vm.c int len = Scm_Length(VAL0); VAL0 1808 src/vm.c VM_ERR(("proper list required, but got %S", VAL0)); VAL0 1810 src/vm.c VAL0 = SCM_MAKE_INT(len); VAL0 1814 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_FALSEP(VAL0)); VAL0 1818 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_NULLP(VAL0)); VAL0 1824 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_EQ(item, VAL0)); VAL0 1831 src/vm.c VAL0 = SCM_MAKE_BOOL(Scm_EqvP(item, VAL0)); VAL0 1838 src/vm.c VAL0 = Scm_Memq(item, VAL0); VAL0 1845 src/vm.c VAL0 = Scm_Memv(item, VAL0); VAL0 1852 src/vm.c VAL0 = Scm_Assq(item, VAL0); VAL0 1859 src/vm.c VAL0 = Scm_Assv(item, VAL0); VAL0 1866 src/vm.c if (!SCM_CLASSP(VAL0)) VAL0 1867 src/vm.c VM_ERR(("class required, but got %S\n", VAL0)); VAL0 1868 src/vm.c c = SCM_CLASS(VAL0); VAL0 1875 src/vm.c VAL0 = Scm_VMIsA(obj, c); VAL0 1879 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_ISA(obj, c)); VAL0 1885 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_PAIRP(VAL0)); VAL0 1889 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_CHARP(VAL0)); VAL0 1893 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_EOFP(VAL0)); VAL0 1897 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_STRINGP(VAL0)); VAL0 1901 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_SYMBOLP(VAL0)); VAL0 1905 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_VECTORP(VAL0)); VAL0 1909 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_IDENTIFIERP(VAL0)); VAL0 1916 src/vm.c cp = VAL0; VAL0 1925 src/vm.c VAL0 = cp; VAL0 1930 src/vm.c VAL0 = Scm_Reverse(VAL0); VAL0 1943 src/vm.c VAL0 = Scm_Cons(cp, VAL0); VAL0 1945 src/vm.c cp = VAL0; /* now cp has arg list */ VAL0 1946 src/vm.c POP_ARG(VAL0); /* get proc */ VAL0 1955 src/vm.c VAL0 = Scm_VMApply(VAL0, cp); VAL0 1969 src/vm.c VAL0 = SCM_CAR(form); /* proc */ VAL0 1974 src/vm.c VAL0 = Scm_MakePromise(FALSE, VAL0); VAL0 1979 src/vm.c VAL0 = Scm_Setter(VAL0); VAL0 1989 src/vm.c vm->vals[i-1] = VAL0; VAL0 1990 src/vm.c POP_ARG(VAL0); VAL0 2002 src/vm.c ScmObj arg = VAL0; VAL0 2009 src/vm.c VAL0 = vec; VAL0 2016 src/vm.c cp = VAL0; VAL0 2026 src/vm.c VAL0 = Scm_ListToVector(cp, 0, -1); VAL0 2031 src/vm.c if (!SCM_VECTORP(VAL0)) VAL0 2032 src/vm.c VM_ERR(("vector expected, but got %S\n", VAL0)); VAL0 2033 src/vm.c siz = SCM_VECTOR_SIZE(VAL0); VAL0 2034 src/vm.c VAL0 = SCM_MAKE_INT(siz); VAL0 2043 src/vm.c if (!SCM_INTP(VAL0)) VAL0 2044 src/vm.c VM_ERR(("integer expected, but got %S\n", VAL0)); VAL0 2045 src/vm.c k = SCM_INT_VALUE(VAL0); VAL0 2048 src/vm.c VAL0 = SCM_VECTOR_ELEMENT(vec, k); VAL0 2052 src/vm.c ScmObj vec = VAL0; VAL0 2058 src/vm.c VAL0 = SCM_VECTOR_ELEMENT(vec, k); VAL0 2073 src/vm.c SCM_VECTOR_ELEMENT(vec, k) = VAL0; VAL0 2074 src/vm.c VAL0 = SCM_UNDEFINED; VAL0 2085 src/vm.c SCM_VECTOR_ELEMENT(vec, k) = VAL0; VAL0 2086 src/vm.c VAL0 = SCM_UNDEFINED; VAL0 2092 src/vm.c if (SCM_INTP(VAL0) && SCM_INTP(arg)) { VAL0 2093 src/vm.c VAL0 = SCM_MAKE_BOOL(VAL0 == arg); VAL0 2094 src/vm.c } else if (SCM_FLONUMP(VAL0) && SCM_FLONUMP(arg)) { VAL0 2095 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_FLONUM_VALUE(VAL0) == VAL0 2099 src/vm.c VAL0 = SCM_MAKE_BOOL(Scm_NumEq(arg, VAL0)); VAL0 2108 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 2115 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 2122 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 2129 src/vm.c VAL0 = SCM_MAKE_BOOL(r); VAL0 2135 src/vm.c if (SCM_INTP(arg) && SCM_INTP(VAL0)) { VAL0 2136 src/vm.c long r = SCM_INT_VALUE(arg) + SCM_INT_VALUE(VAL0); VAL0 2138 src/vm.c VAL0 = SCM_MAKE_INT(r); VAL0 2140 src/vm.c VAL0 = Scm_MakeInteger(r); VAL0 2144 src/vm.c VAL0 = Scm_Add(arg, VAL0, SCM_NIL); VAL0 2152 src/vm.c if (SCM_INTP(arg) && SCM_INTP(VAL0)) { VAL0 2153 src/vm.c long r = SCM_INT_VALUE(arg) - SCM_INT_VALUE(VAL0); VAL0 2155 src/vm.c VAL0 = SCM_MAKE_INT(r); VAL0 2157 src/vm.c VAL0 = Scm_MakeInteger(r); VAL0 2161 src/vm.c VAL0 = Scm_Subtract(arg, VAL0, SCM_NIL); VAL0 2172 src/vm.c if ((SCM_FLONUMP(arg) && SCM_REALP(VAL0)) VAL0 2173 src/vm.c ||(SCM_FLONUMP(VAL0) && SCM_REALP(arg))) { VAL0 2174 src/vm.c VAL0 = Scm_MakeFlonum(Scm_GetDouble(arg)*Scm_GetDouble(VAL0)); VAL0 2177 src/vm.c VAL0 = Scm_Multiply(arg, VAL0, SCM_NIL); VAL0 2187 src/vm.c if ((SCM_FLONUMP(arg) && SCM_REALP(VAL0)) VAL0 2188 src/vm.c ||(SCM_FLONUMP(VAL0) && SCM_REALP(arg))) { VAL0 2189 src/vm.c VAL0 = Scm_MakeFlonum(Scm_GetDouble(arg)/Scm_GetDouble(VAL0)); VAL0 2192 src/vm.c VAL0 = Scm_Divide(arg, VAL0, SCM_NIL); VAL0 2198 src/vm.c ScmObj v = VAL0; VAL0 2202 src/vm.c VAL0 = SCM_MAKE_INT(r); VAL0 2204 src/vm.c VAL0 = Scm_MakeInteger(r); VAL0 2207 src/vm.c VAL0 = Scm_MakeFlonum(-Scm_GetDouble(v)); VAL0 2210 src/vm.c VAL0 = Scm_Negate(v); VAL0 2217 src/vm.c if (SCM_INTP(VAL0)) { VAL0 2218 src/vm.c imm += SCM_INT_VALUE(VAL0); VAL0 2220 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2223 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2227 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), VAL0, SCM_NIL); VAL0 2239 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2242 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2246 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); VAL0 2257 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2260 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2264 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); VAL0 2275 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2278 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2282 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); VAL0 2293 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2296 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2300 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); VAL0 2311 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2314 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2318 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); VAL0 2326 src/vm.c if (SCM_INTP(VAL0)) { VAL0 2327 src/vm.c imm -= SCM_INT_VALUE(VAL0); VAL0 2329 src/vm.c VAL0 = SCM_MAKE_INT(imm); VAL0 2332 src/vm.c VAL0 = Scm_MakeInteger(imm); VAL0 2336 src/vm.c VAL0 = Scm_Subtract(SCM_MAKE_INT(imm), VAL0, SCM_NIL); VAL0 2345 src/vm.c if (!SCM_IPORTP(VAL0)) VAL0 2346 src/vm.c VM_ERR(("read-char: input port required: %S", VAL0)); VAL0 2347 src/vm.c port = SCM_PORT(VAL0); VAL0 2354 src/vm.c VAL0 = (ch < 0)? SCM_EOF : SCM_MAKE_CHAR(ch); VAL0 2361 src/vm.c if (!SCM_IPORTP(VAL0)) VAL0 2362 src/vm.c VM_ERR(("read-char: input port required: %S", VAL0)); VAL0 2363 src/vm.c port = SCM_PORT(VAL0); VAL0 2370 src/vm.c VAL0 = (ch < 0)? SCM_EOF : SCM_MAKE_CHAR(ch); VAL0 2378 src/vm.c if (!SCM_OPORTP(VAL0)) VAL0 2379 src/vm.c VM_ERR(("write-char: output port required: %S", VAL0)); VAL0 2380 src/vm.c port = SCM_PORT(VAL0); VAL0 2384 src/vm.c ch = VAL0; VAL0 2391 src/vm.c VAL0 = SCM_UNDEFINED; VAL0 2395 src/vm.c VAL0 = SCM_OBJ(vm->curin); VAL0 2399 src/vm.c VAL0 = SCM_OBJ(vm->curout); VAL0 2403 src/vm.c VAL0 = SCM_OBJ(vm->curerr); VAL0 2411 src/vm.c VAL0 = Scm_VMSlotRef(obj, VAL0, FALSE); VAL0 2421 src/vm.c VAL0 = Scm_VMSlotSet(obj, slot, VAL0); VAL0 2431 src/vm.c VAL0 = Scm_VMSlotRef(VAL0, slot, FALSE); VAL0 2442 src/vm.c VAL0 = Scm_VMSlotSet(obj, slot, VAL0); VAL0 2870 src/vm.c VAL0 = vm->val0; VAL0 2890 src/vm.c VAL0 = vm->val0; VAL0 2914 src/vm.c VAL0 = vm->val0;