Prevent error on 'make clean'; prevent '#t' when using 'build-runtime.rkt'

Author: pdarragh

langs/abscond/Makefile

@@ -35,7 +35,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/blackmail/Makefile

@@ -35,7 +35,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/con/Makefile

@@ -35,7 +35,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/dodger/Makefile

@@ -36,7 +36,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/dupe/Makefile

@@ -36,7 +36,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/evildoer/Makefile

@@ -37,7 +37,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/extort/Makefile

@@ -37,7 +37,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/fraud/Makefile

@@ -37,7 +37,8 @@ runtime.o: $(objs)
 	cat $< | racket -t compile-stdin.rkt -m > $@
 
 clean:
-	rm *.o *.s *.run
+	@$(RM) *.o *.s *.run ||:
+	@echo "$(shell basename $(shell pwd)): cleaned!"
 
 %.test: %.run %.rkt
 	@test "$(shell ./$(<))" = "$(shell racket $(word 2,$^))"

langs/fraud/build-runtime.rkt

@@ -4,9 +4,10 @@
 (require racket/runtime-path)
 (define-runtime-path here ".")
 
-(system (string-append "make -C '"
-                       (path->string (normalize-path here))
-		       "' runtime.o"))
+(unless (system (string-append "make -C '"
+                               (path->string (normalize-path here))
+                               "' runtime.o"))
+  (error 'build-runtime "could not build runtime"))
 
 (define runtime-path
   (normalize-path (build-path here "runtime.o")))

langs/fraud/compile.rkt

@@ -53,9 +53,7 @@
 
 ;; Op0 -> Asm
 (define (compile-prim0 p)
-  (compile-op0 p))
-
-;; Op1 Expr CEnv -> Asm
+  (compile-op0 p));; Op1 Expr CEnv -> Asm
 (define (compile-prim1 p e c)
   (seq (compile-e e c)
        (compile-op1 p)))
@@ -65,9 +63,7 @@
   (seq (compile-e e1 c)
        (Push rax)
        (compile-e e2 (cons #f c))
-       (compile-op2 p)))
-
-;; Expr Expr Expr CEnv -> Asm
+       (compile-op2 p)));; Expr Expr Expr CEnv -> Asm
 (define (compile-if e1 e2 e3 c)
   (let ((l1 (gensym 'if))
         (l2 (gensym 'if)))
@@ -78,9 +74,7 @@
          (Jmp l2)
          (Label l1)
          (compile-e e3 c)
-         (Label l2))))
-
-;; Expr Expr CEnv -> Asm
+         (Label l2))));; Expr Expr CEnv -> Asm
 (define (compile-begin e1 e2 c)
   (seq (compile-e e1 c)
        (compile-e e2 c)))
@@ -100,3 +94,4 @@
      (match (eq? x y)
        [#t 0]
        [#f (+ 8 (lookup x rest))])]))
+