[dhcp] 05/08: more exports from dhcp/options/base and dhcp/dhcp

[Rohan Prinja]

wenderen pushed a commit to branch master
in repository dhcp.

commit d7512cd0d66c5dabd8fa266b3d08da97672ac61c
Author: Rohan Prinja <address@hidden>
Date:   Mon Jun 15 21:14:19 2015 +0530

    more exports from dhcp/options/base and dhcp/dhcp
---
 dhcp/dhcp.scm         |    3 ++-
 dhcp/options/base.scm |   12 ++++++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/dhcp/dhcp.scm b/dhcp/dhcp.scm
index ad059e0..7c09e90 100644
--- a/dhcp/dhcp.scm
+++ b/dhcp/dhcp.scm
@@ -22,6 +22,8 @@
   #:use-module (srfi srfi-9)
   #:use-module ((srfi srfi-1) #:select (find))
   #:export (<dhcp>
+           make-dhcp
+
            dhcp-xid set-dhcp-xid!
            dhcp-state set-dhcp-state!
            dhcp-tries set-dhcp-tries!
@@ -151,7 +153,6 @@ interface NETIF."
                        'DHCP-INIT-REBOOT
                        'DHCP-INIT)))
     (display (format #f "start-config: entered ~a state\n" dhcp-state))
-    (slot-set! (net-iface-dhcp netif) (current-time))
     (if (eq? dhcp-state 'INIT)
        (begin
          (wait-desync)
diff --git a/dhcp/options/base.scm b/dhcp/options/base.scm
index b0cc0d4..c1d22dc 100644
--- a/dhcp/options/base.scm
+++ b/dhcp/options/base.scm
@@ -21,18 +21,18 @@
   #:export (<dhcp-option>
            make-dhcp-option
            dhcp-option?
-           dhcp-option-code
-           dhcp-option-len
-           dhcp-option-val))
+           dhcp-option-code set-dhcp-option-code!
+           dhcp-option-len set-dhcp-option-len!
+           dhcp-option-val set-dhcp-option-val!))
 
 ; DHCP option object.
 ; See RFC 2132 for a list of DHCP options.
 (define-record-type <dhcp-option>
   (make-dhcp-option code len val)
   dhcp-option?
-  (code dhcp-option-code)
-  (len dhcp-option-len)
-  (val dhcp-option-val))
+  (code dhcp-option-code set-dhcp-option-code!)
+  (len dhcp-option-len set-dhcp-option-len!)
+  (val dhcp-option-val set-dhcp-option-val!))
 
 ; code = option code, lies between 0 and 255
 ; len = length of option in bytes when it is serialized into a,