From 75b9e7bf8ab5cc21ec76cd398dd93a90625e1384 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 29 Apr 2017 01:18:39 +0000
Subject: [PATCH] Explicit inlines

---
 scheme/base.sld               | 16 ++++++++++++++++
 scheme/complex.sld            |  3 +++
 scheme/cyclone/cgen.sld       |  7 +++++++
 scheme/cyclone/libraries.sld  |  4 ++++
 scheme/cyclone/macros.sld     |  2 ++
 scheme/cyclone/transforms.sld | 21 +++++++++++++++++++++
 scheme/cyclone/util.sld       | 17 +++++++++++++++++
 scheme/eval.sld               | 18 ++++++++++++++++++
 srfi/1.sld                    |  9 +++++++++
 srfi/106.sld                  |  2 ++
 srfi/128.sld                  |  2 ++
 srfi/133.sld                  |  5 +++++
 srfi/18.sld                   |  4 ++++
 13 files changed, 110 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index e1d57af2..9fe1d30c 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -207,6 +207,22 @@
 ;    letrec-syntax
 ;;;;
   )
+  (inline
+    square
+    quotient
+    numerator
+    denominator
+    truncate
+    negative?
+    positive?
+    zero?
+    not
+    string>=?
+    string>?
+    string<=?
+    string<?
+    string=?
+  )
   (begin
     ;; Features implemented by this Scheme
     (define (features) 
diff --git a/scheme/complex.sld b/scheme/complex.sld
index 16d55bf7..0c7208d2 100644
--- a/scheme/complex.sld
+++ b/scheme/complex.sld
@@ -15,6 +15,9 @@
     make-rectangular 
     real-part
   )
+  (inline
+    real-part
+    imag-part)
   (import (scheme base))
   (begin
     (define (real-part x) x)
diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index c52b8570..37d4cb69 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -28,6 +28,13 @@
     emit-newline
     string-join
   )
+  (inline
+    global-not-lambda?
+    global-lambda?
+    c:num-args
+    c:allocs
+    st:->var
+  )
   (begin
 
 (define (emit line)
diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld
index 6f148614..9330e7e2 100644
--- a/scheme/cyclone/libraries.sld
+++ b/scheme/cyclone/libraries.sld
@@ -61,6 +61,10 @@
     lib:idb:entry->library-name
     lib:idb:entry->library-id
   )
+  (inline
+    lib:idb:entry->library-name
+    lib:import-set->import-set
+  )
   (begin
 
 (define (library? ast)
diff --git a/scheme/cyclone/macros.sld b/scheme/cyclone/macros.sld
index dc2d391f..1696248e 100644
--- a/scheme/cyclone/macros.sld
+++ b/scheme/cyclone/macros.sld
@@ -22,6 +22,8 @@
     macro:get-env
     macro:get-defined-macros
   )
+  (inline
+    macro:macro?)
   (begin
     ;; top-level macro environment
     (define *macro:env* '())
diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index fd5ab5db..c0e0248e 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -106,6 +106,27 @@
     closure-convert 
     prim-convert
   )
+  (inline
+    cell-get->cell
+    cell->value
+    set-cell!->value
+    set-cell!->cell
+    env-get->env
+    env-get->field
+    env-get->id
+    env-make->id
+    closure->fv
+    closure->env
+    closure->lam
+    begin->exps
+    app->args
+    app->fun
+    letrec->exp
+    letrec->bindings
+    let->exp
+    let->bindings
+    void
+  )
   (begin
 
 ;; Container for built-in macros
diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index 8f292f43..b89d5a2b 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -83,6 +83,23 @@
     string-replace-all
     take
     filter)
+  (inline
+    env:frame-values
+    env:frame-variables
+    env:first-frame
+    env:enclosing-environment
+    lambda->exp
+    lambda->formals
+    define->exp
+    set!->exp
+    set!->var
+    ref?
+    app?
+    if->else
+    if->then
+    if->condition
+    tagged-list?
+  )
   (begin
 
 (define (tagged-list? tag exp)
diff --git a/scheme/eval.sld b/scheme/eval.sld
index 05a3c4cf..f3d0814e 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -25,6 +25,24 @@
     %import
     imported?
   )
+  (inline
+    primitive-implementation
+    procedure-environment
+    procedure-body
+    procedure-parameters
+    operands
+    operator
+    application?
+    if-alternative
+    if-consequent
+    if-predicate
+    lambda-body
+    lambda-parameters
+    definition-variable
+    assignment-value
+    assignment-variable
+    variable?
+  )
   (begin
 
 ;; From r7rs:
diff --git a/srfi/1.sld b/srfi/1.sld
index bc80890e..9bd245b5 100644
--- a/srfi/1.sld
+++ b/srfi/1.sld
@@ -42,6 +42,15 @@
     lset-union  lset-intersection  lset-difference  lset-xor  lset-diff+intersection
     lset-union! lset-intersection! lset-difference! lset-xor! lset-diff+intersection!
   )
+  (inline
+    tenth
+    ninth
+    eighth
+    seventh
+    sixth
+    fifth
+    not-pair?
+  )
   (include "1.scm")
   (begin)
 )
diff --git a/srfi/106.sld b/srfi/106.sld
index 3a9315d0..e2b3ebda 100644
--- a/srfi/106.sld
+++ b/srfi/106.sld
@@ -36,6 +36,8 @@
       *msg-peek* *msg-oob* *msg-waitall*
       *shut-rd* *shut-wr* *shut-rdwr*
   )
+  (inline
+    socket->fd)
   (begin
     (define *socket-object-type* '%socket-object-type%)
     (define (socket->fd obj) (cdr obj))
diff --git a/srfi/128.sld b/srfi/128.sld
index 8c947d06..9476378b 100644
--- a/srfi/128.sld
+++ b/srfi/128.sld
@@ -2,6 +2,8 @@
   (import (scheme base))
   (import (scheme case-lambda))
   (import (scheme char) (scheme complex) (scheme inexact))
+  (inline
+    boolean<?)
   (export comparator? comparator-ordered? comparator-hashable?)
   (export make-comparator
           make-pair-comparator make-list-comparator make-vector-comparator
diff --git a/srfi/133.sld b/srfi/133.sld
index a43856cb..55dcd5cc 100644
--- a/srfi/133.sld
+++ b/srfi/133.sld
@@ -1,6 +1,11 @@
 (define-library (srfi 133) ;vectors)
   (import (scheme base))
   (import (scheme cxr))
+  (inline
+    unspecified-value
+    between?
+    nonneg-int?
+  )
   ;; Constructors 
   (export vector-unfold vector-unfold-right vector-reverse-copy 
           vector-concatenate vector-append-subvectors)
diff --git a/srfi/18.sld b/srfi/18.sld
index 43ebc45e..2577fec1 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -49,6 +49,10 @@
     ->heap
     Cyc-minor-gc
   )
+  (inline
+    thread-specific
+    thread-name
+  )
   (begin
     ;; Threading
     (define (thread? obj)