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 |