- Timestamp:
- 05/14/08 08:38:01 (5 years ago)
- Location:
- lang/c/misc/mlisp
- Files:
-
- 2 modified
- 2 moved
-
core/c_compiler.cpp (modified) (2 diffs)
-
inc/mlisp.h (moved) (moved from lang/c/misc/mlisp/core/mlisp.h)
-
inc/sexp.h (moved) (moved from lang/c/misc/mlisp/core/sexp.h)
-
mlisp.vcproj (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/c/misc/mlisp/core/c_compiler.cpp
r11550 r11551 262 262 SExp compile_block(SExp sexps, SExp e, SExp next) { 263 263 return nil; 264 } 265 266 static SExp compile_define(SExp var, SExp body, SExp e, SExp s, SExp next) { 267 while (consp(var)) { 268 body = list(3, intern("lambda"), cdr(var), body); 269 var = car(var); 270 } 271 return compile(body, e, s, list(3, DEFINE, var, next)); 264 272 } 265 273 … … 316 324 SExp var = cadr(x); 317 325 SExp body = caddr(x); 318 return compile (body, e, s, list(3, DEFINE, var, next));326 return compile_define(var, body, e, s, next); 319 327 } else { 320 328 SExp args = cdr(x); -
lang/c/misc/mlisp/mlisp.vcproj
r11550 r11551 13 13 <Configuration 14 14 Name="Debug|Win32" 15 OutputDirectory=" Debug"16 IntermediateDirectory=" Debug"15 OutputDirectory="obj\Debug" 16 IntermediateDirectory="obj\Debug" 17 17 ConfigurationType="1" 18 18 CharacterSet="2"> … … 20 20 Name="VCCLCompilerTool" 21 21 Optimization="0" 22 AdditionalIncludeDirectories=" core"22 AdditionalIncludeDirectories="inc" 23 23 PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE" 24 24 MinimalRebuild="TRUE" … … 63 63 <Configuration 64 64 Name="Release|Win32" 65 OutputDirectory=" Release"66 IntermediateDirectory=" Release"65 OutputDirectory="obj\Release" 66 IntermediateDirectory="obj\Release" 67 67 ConfigurationType="1" 68 68 CharacterSet="2"> 69 69 <Tool 70 70 Name="VCCLCompilerTool" 71 AdditionalIncludeDirectories=" core"71 AdditionalIncludeDirectories="inc" 72 72 PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE" 73 73 RuntimeLibrary="4"
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)