Parent Directory | Revision Log | Patch
revision 1.66 by masse, Sat Feb 9 00:40:45 2002 UTC | revision 1.67 by masse, Sat Feb 9 00:57:05 2002 UTC | |
---|---|---|
# | Line 1256 extern void to(environment *env) { | Line 1256 extern void to(environment *env) { |
1256 | ||
1257 | push_sym(env, "["); | push_sym(env, "["); |
1258 | ||
1259 | for(i= start; i<= ending; i++) | if(ending>=start) { |
1260 | push_int(&(env->head), i); | for(i= start; i<=ending; i++) |
1261 | push_int(&(env->head), i); | |
1262 | } else { | |
1263 | for(i= start; i>=ending; i--) | |
1264 | push_int(&(env->head), i); | |
1265 | } | |
1266 | ||
1267 | push_sym(env, "["); | push_sym(env, "["); |
1268 | pack(env); if(env->err) return; | pack(env); if(env->err) return; |
|
root@recompile.se | ViewVC Help |
Powered by ViewVC 1.1.26 |