             parsed = try Interpreter.parse("(log1p 1)")
             let _ = try Interpreter.eval(&parsed, with: &interpreter.globalEnv)
             XCTFail()
-        } catch let error as Interpreter.InterpreterError {
-            XCTAssertEqual(error, Interpreter.InterpreterError.invalidProcedureInput)
-        } catch {
-            XCTFail()
+        } catch {
+            XCTPass()
         }
     }
 

            parsed = try Interpreter.parse("(exp 1)")
            let _ = try Interpreter.eval(&parsed, with: &interpreter.globalEnv)
            XCTFail()
        } catch let error as Interpreter.InterpreterError {
            XCTAssertEqual(error, Interpreter.InterpreterError.invalidProcedureInput)
        } catch {
            XCTFail()
        }
    }
    

            parsed = try Interpreter.parse("(log 1)")
            let _ = try Interpreter.eval(&parsed, with: &interpreter.globalEnv)
            XCTFail()
        } catch {
            XCTPass()
        }
    }
    
