From 022bf715be2a0edbb154ab8ae0b33668af577acf Mon Sep 17 00:00:00 2001
From: Bob Burger <burgerrg@gmail.com>
Date: Fri, 15 Sep 2017 09:49:00 -0400
Subject: [PATCH] removed a useless check in foreign-alloc

original commit: a629477f50dffd0cdc838276bbbf31f06504d958
---
 LOG         | 2 ++
 s/record.ss | 5 +----
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/LOG b/LOG
index cf0db40a3f..8ee86aeaa3 100644
--- a/LOG
+++ b/LOG
@@ -582,3 +582,5 @@
   simplified test and finding the initial solution.
     cpnanopass.ss,
     3.ms
+- removed a useless check in foreign-alloc
+    record.ss
diff --git a/s/record.ss b/s/record.ss
index 003b13e071..3849c55d4b 100644
--- a/s/record.ss
+++ b/s/record.ss
@@ -51,10 +51,7 @@
         (lambda (n)
           (unless (and (fixnum? n) (fx> n 0))
             ($oops who "~s is not a positive fixnum" n))
-          (let ([x (malloc n)])
-            (if (string? x)
-                ($oops who "system call failed: ~(~a~)" x)
-                x)))))
+          (malloc n))))
 
     (set-who! foreign-free
       (let ([free (foreign-procedure "(cs)free" (uptr) void)])