Fix reader naming

sander · Jan 17, 2025 · e146b2d · e146b2d
1 parent e05b72d
commit e146b2d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/prototype.lisp b/prototype.lisp
@@ -274,15 +274,15 @@
 
 (defclass reader ()
   ((sk :reader sk :initarg :sk)
-   (kem :reader kem :initarg :kem)))
-(defun make-reader (ec-dhkem)
-  (make-instance 'reader :sk (random-scalar (ec ec-dhkem))
-                         :kem ec-dhkem))
+   (dh :reader dh :initarg :dh)))
+(defun make-reader (ec-dh)
+  (make-instance 'reader :sk (random-scalar (ec ec-dh))
+                         :dh ec-dh))
 (defun verify (reader doc device-data)
   (= (os2ip device-data)
-     (os2ip (create-shared-secret (kem reader) (sk reader) (pk doc)))))
+     (os2ip (create-shared-secret (dh reader) (sk reader) (pk doc)))))
 (defmethod pk ((reader reader))
-  (scalar-base-mult (ec (kem reader)) (sk reader)))
+  (scalar-base-mult (ec (dh reader)) (sk reader)))
 
 (loop with vectors =
       `((""